Errors in running code in vignettes:
when running code in ‘adrs.Rmd’
  ...
+     case_when(arg == "NE" ~ 1, arg == "CR" ~ 2, arg == "PR" ~ 
+         3, arg == "SD" ~ 4, arg == "NON-CR/NON-PD"  .... [TRUNCATED] 

> adrs <- adrs %>% restrict_derivation(derivation = derive_var_extreme_flag, 
+     args = params(by_vars = c(get_admiral_option("subject_keys"), 
+   .... [TRUNCATED] 

  When sourcing ‘adrs.R’:
Error: could not find function "is_named"
Execution halted
when running code in ‘adrs_basic.Rmd’
  ...
+     case_when(arg == "NE" ~ 1, arg == "CR" ~ 2, arg == "PR" ~ 
+         3, arg == "SD" ~ 4, arg == "NON-CR/NON-PD"  .... [TRUNCATED] 

> adrs <- adrs %>% restrict_derivation(derivation = derive_var_extreme_flag, 
+     args = params(by_vars = c(get_admiral_option("subject_keys"), 
+   .... [TRUNCATED] 

  When sourcing ‘adrs_basic.R’:
Error: could not find function "is_named"
Execution halted
when running code in ‘adrs_imwg.Rmd’
  ...
> if (nrow(many_nes) > 0) {
+     cli_warn("There are subjects with more than three NEs in a row.")
+ }

> adrs_imwg <- adrs_imwg %>% restrict_derivation(derivation = derive_var_extreme_flag, 
+     args = params(by_vars = exprs(!!!get_admiral_option("sub ..." ... [TRUNCATED] 

  When sourcing ‘adrs_imwg.R’:
Error: could not find function "is_named"
Execution halted
when running code in ‘adtr.Rmd’
  ...
> adtr_sum <- adtr_sum %>% derive_var_merged_summary(dataset_add = adtr, 
+     by_vars = get_admiral_option("subject_keys"), filter_add = AVISIT == 
 .... [TRUNCATED] 

> adtr_sum <- adtr_sum %>% restrict_derivation(derivation = derive_var_extreme_flag, 
+     args = params(by_vars = get_admiral_option("subject_keys") .... [TRUNCATED] 

  When sourcing ‘adtr.R’:
Error: could not find function "is_named"
Execution halted
when running code in ‘irecist.Rmd’
  ...
|01-701-1115 |WEEK 6  |OVR     |Overall Response by Investigator |iUPD             |iUPD             |    2|
|01-701-1118 |WEEK 6  |OVR     |Overall Response by Investigator |iUPD             |iUPD             |    2|

> adrs <- adrs %>% restrict_derivation(derivation = derive_var_extreme_flag, 
+     args = params(by_vars = c(get_admiral_option("subject_keys"), 
+   .... [TRUNCATED] 

  When sourcing ‘irecist.R’:
Error: could not find function "is_named"
Execution halted

  ‘admiralonco.Rmd’ using ‘UTF-8’... [1s/1s] OK
  ‘adrs.Rmd’ using ‘UTF-8’... failed
  ‘adrs_basic.Rmd’ using ‘UTF-8’... failed
  ‘adrs_imwg.Rmd’ using ‘UTF-8’... failed
  ‘adtr.Rmd’ using ‘UTF-8’... failed
  ‘adtte.Rmd’ using ‘UTF-8’... [2s/3s] OK
  ‘irecist.Rmd’ using ‘UTF-8’... failed
  ‘nactdt.Rmd’ using ‘UTF-8’... [1s/2s] OK