Running examples in ‘admiralophtha-Ex.R’ failed
The error most likely occurred in:

> ### Name: derive_var_bcvacritxfl
> ### Title: Adds 'CRITx'/'CRITxFL' pairs to BCVA dataset
> ### Aliases: derive_var_bcvacritxfl
> ### Keywords: der_ophtha
> 
> ### ** Examples
> 
> library(tibble)
> library(admiral)
> library(admiraldev)
> 
> adbcva1 <- tribble(
+   ~STUDYID, ~USUBJID, ~AVISIT, ~BASETYPE, ~PARAMCD, ~CHG,
+   "XXX001", "P01", "BASELINE", "LAST", "SBCVA", 0,
+   "XXX001", "P01", "WEEK 2", "LAST", "FBCVA", 2,
+   "XXX001", "P02", "BASELINE", "LAST", "SBCVA", -13,
+   "XXX001", "P02", "WEEK 2", "LAST", "FBCVA", 5,
+   "XXX001", "P03", "BASELINE", "LAST", "SBCVA", NA,
+   "XXX001", "P03", "WEEK 2", "LAST", "FBCVA", 17
+ )
> 
> derive_var_bcvacritxfl(
+   dataset = adbcva1,
+   crit_var = exprs(CHG),
+   bcva_ranges = list(c(0, 5), c(-5, -1), c(10, 15)),
+   bcva_uplims = list(5, 10),
+   bcva_lowlims = list(8),
+   additional_text = ""
+ )
# A tibble: 6 × 18
  STUDYID USUBJID AVISIT   BASETYPE PARAMCD   CHG CRIT1    CRIT1FL CRIT2 CRIT2FL
  <chr>   <chr>   <chr>    <chr>    <chr>   <dbl> <chr>    <chr>   <chr> <chr>  
1 XXX001  P01     BASELINE LAST     SBCVA       0 0 <= CH… Y       -5 <… N      
2 XXX001  P01     WEEK 2   LAST     FBCVA       2 0 <= CH… Y       -5 <… N      
3 XXX001  P02     BASELINE LAST     SBCVA     -13 0 <= CH… N       -5 <… N      
4 XXX001  P02     WEEK 2   LAST     FBCVA       5 0 <= CH… Y       -5 <… N      
5 XXX001  P03     BASELINE LAST     SBCVA      NA 0 <= CH… <NA>    -5 <… <NA>   
6 XXX001  P03     WEEK 2   LAST     FBCVA      17 0 <= CH… N       -5 <… N      
# ℹ 8 more variables: CRIT3 <chr>, CRIT3FL <chr>, CRIT4 <chr>, CRIT4FL <chr>,
#   CRIT5 <chr>, CRIT5FL <chr>, CRIT6 <chr>, CRIT6FL <chr>
> 
> adbcva2 <- tribble(
+   ~STUDYID, ~USUBJID, ~AVISIT, ~BASETYPE, ~PARAMCD, ~AVAL, ~CHG,
+   "XXX001", "P01", "BASELINE", "LAST", "SBCVA", 4, NA,
+   "XXX001", "P01", "BASELINE", "LAST", "SBCVA", 6, NA,
+   "XXX001", "P01", "AVERAGE BASELINE", "AVERAGE", "SBCVA", 5, NA,
+   "XXX001", "P01", "WEEK 2", "LAST", "SBCVA", -3, NA,
+   "XXX001", "P01", "WEEK 4", "LAST", "SBCVA", -10, NA,
+   "XXX001", "P01", "WEEK 6", "LAST", "SBCVA", 12, NA,
+   "XXX001", "P01", "WEEK 2", "AVERAGE", "SBCVA", -2, -7,
+   "XXX001", "P01", "WEEK 4", "AVERAGE", "SBCVA", 6, 1,
+   "XXX001", "P01", "WEEK 6", "AVERAGE", "SBCVA", 3, -2
+ )
> 
> restrict_derivation(
+   adbcva2,
+   derivation = derive_var_bcvacritxfl,
+   args = params(
+     crit_var = exprs(CHG),
+     bcva_ranges = list(c(0, 5), c(-10, 0)),
+     bcva_lowlims = list(5),
+     additional_text = " (AVERAGE)"
+   ),
+   filter = PARAMCD %in% c("SBCVA", "FBCVA") & BASETYPE == "AVERAGE"
+ )
Error in is_named(args) : could not find function "is_named"
Calls: restrict_derivation -> assert_s3_class -> params
Execution halted