diff --git a/.github/workflows/common.yml b/.github/workflows/common.yml index 3f96431d..ca7b8612 100644 --- a/.github/workflows/common.yml +++ b/.github/workflows/common.yml @@ -13,7 +13,6 @@ on: push: branches: - main - - devel - pre-release - test # 'pull_request' events are triggered when PRs are @@ -21,7 +20,6 @@ on: pull_request: branches: - main - - devel - pre-release - test # 'release' events are triggered when... @@ -64,6 +62,8 @@ jobs: name: Check uses: pharmaverse/admiralci/.github/workflows/r-cmd-check.yml@main if: github.event_name == 'pull_request' + with: + error-on: warning # TODO: find a way to ignore specific notes docs: name: Documentation uses: pharmaverse/admiralci/.github/workflows/pkgdown.yml@main diff --git a/NEWS.md b/NEWS.md index cccb2d75..232e923e 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,8 +1,13 @@ # admiralophtha (development version) +## Updates to Templates + +- Removed `analysis_value` argument in the calls to `derive_param_computed()` in ADBCVA template in line with the deprecation of this argument in the new version of `{admiral}`. Variable values for parameters of interest are now all populated through the `set_values_to` argument (#207). + ## Updates to Documentation - Added release date for `{admiralophtha}` 1.0 to the front page (#203). +- Removed `analysis_value` argument in the calls to `derive_param_computed()` in ADBCVA vignette in line with the deprecation of this argument in the new version of `{admiral}`. Variable values for parameters of interest are now all populated through the `set_values_to` argument (#207). # admiralophtha 0.3.0 diff --git a/inst/templates/ad_adbcva.R b/inst/templates/ad_adbcva.R index 1dfafcee..dc5aa594 100644 --- a/inst/templates/ad_adbcva.R +++ b/inst/templates/ad_adbcva.R @@ -139,8 +139,8 @@ adbcva_logparam <- adbcva_nlogparam %>% derive_param_computed( by_vars = c(exprs(STUDYID, USUBJID, VISIT, VISITNUM, OEDY, OEDTC, AFEYE), adsl_vars), parameters = c("SBCVA"), - analysis_value = convert_etdrs_to_logmar(AVAL.SBCVA), set_values_to = exprs( + AVAL = convert_etdrs_to_logmar(AVAL.SBCVA), PARAMCD = "SBCVALOG", PARAM = "Study Eye Visual Acuity LogMAR Score", DTYPE = NA_character_, @@ -150,8 +150,8 @@ adbcva_logparam <- adbcva_nlogparam %>% derive_param_computed( by_vars = c(exprs(STUDYID, USUBJID, VISIT, OEDY, OEDTC, AFEYE), adsl_vars), parameters = c("FBCVA"), - analysis_value = convert_etdrs_to_logmar(AVAL.FBCVA), set_values_to = exprs( + AVAL = convert_etdrs_to_logmar(AVAL.FBCVA), PARAMCD = "FBCVALOG", PARAM = "Fellow Eye Visual Acuity LogMAR Score", DTYPE = NA_character_, diff --git a/vignettes/adbcva.Rmd b/vignettes/adbcva.Rmd index ed1b15ec..c43561cb 100644 --- a/vignettes/adbcva.Rmd +++ b/vignettes/adbcva.Rmd @@ -150,24 +150,24 @@ Often ADBCVA datasets contain derived records for BCVA in LogMAR units. This can ```{r} adbcva <- adbcva %>% derive_param_computed( - by_vars = c(exprs(STUDYID, USUBJID, VISIT, VISITNUM, OEDY, OEDTC), adsl_vars), + by_vars = c(exprs(STUDYID, USUBJID, VISIT, VISITNUM, OEDY, OEDTC, AFEYE), adsl_vars), parameters = c("SBCVA"), - analysis_value = convert_etdrs_to_logmar(AVAL.SBCVA), set_values_to = exprs( + AVAL = convert_etdrs_to_logmar(AVAL.SBCVA), PARAMCD = "SBCVALOG", PARAM = "Study Eye Visual Acuity LogMAR Score", - DTYPE = "DERIVED", + DTYPE = NA_character_, AVALU = "LogMAR" ) ) %>% derive_param_computed( - by_vars = c(exprs(STUDYID, USUBJID, VISIT, OEDY, OEDTC), adsl_vars), + by_vars = c(exprs(STUDYID, USUBJID, VISIT, OEDY, OEDTC, AFEYE), adsl_vars), parameters = c("FBCVA"), - analysis_value = convert_etdrs_to_logmar(AVAL.FBCVA), set_values_to = exprs( + AVAL = convert_etdrs_to_logmar(AVAL.FBCVA), PARAMCD = "FBCVALOG", PARAM = "Fellow Eye Visual Acuity LogMAR Score", - DTYPE = "DERIVED", + DTYPE = NA_character_, AVALU = "LogMAR" ) ) %>%