fix for check

Author: DanChaltiel

NAMESPACE

@@ -44,6 +44,7 @@ importFrom(dplyr,mutate)
 importFrom(dplyr,n)
 importFrom(dplyr,n_distinct)
 importFrom(dplyr,na_if)
+importFrom(dplyr,pick)
 importFrom(dplyr,pull)
 importFrom(dplyr,rename)
 importFrom(dplyr,rename_with)
@@ -115,6 +116,7 @@ importFrom(rlang,arg_match)
 importFrom(rlang,caller_arg)
 importFrom(rlang,check_dots_empty)
 importFrom(rlang,check_installed)
+importFrom(rlang,current_env)
 importFrom(rlang,ensym)
 importFrom(rlang,int)
 importFrom(rlang,is_empty)

R/ae_table_soc.R

@@ -28,7 +28,7 @@
 #' @seealso [ae_table_grade()], [ae_table_soc()], [ae_plot_grade()], [ae_plot_grade_sum()], [butterfly_plot()]
 #'
 #' @importFrom cli cli_abort cli_warn
-#' @importFrom dplyr across any_of arrange count cur_group filter if_else left_join mutate pull rename select summarise
+#' @importFrom dplyr across any_of arrange count cur_group filter if_else left_join mutate pick pull rename select summarise
 #' @importFrom forcats fct_infreq
 #' @importFrom glue glue
 #' @importFrom purrr iwalk keep map

R/utils.R

@@ -93,11 +93,12 @@ get_label = function(x, default=names(x)){
 
 #' @noRd
 #' @keywords internal
+#' @importFrom rlang current_env
 apply_labels = function(data, ..., warn_missing=FALSE) {
   args = lst(...)
   unknowns = setdiff(names(args), names(data))
   if (length(unknowns) && warn_missing) {
-    cli_warn("Cannot apply a label to unknown column{?s} in `data`: {.var {unknowns}}",
+    cli_warn("Cannot find column{?s} in `data`: {.var {unknowns}}",
              class="crosstable_missing_label_warning",
              call=current_env())
   }

tests/testthat/test-data.R

@@ -3,9 +3,9 @@
 test_that("Proportions of AE grades are respected", {
   p_ae  = c(0.4,0.3,0.2,0.1,0.01)
   p_sae = c(0.15,0.15,0.3,0.3,0.1)
-  tm = grstat_example(1000, ae_p_na=0, ae_p_sae=0.5, seed=42)
+  tm = grstat_example(2000, ae_p_na=0, ae_p_sae=0.5, seed=42)
   x = tm$ae %>% with(table(aegr, sae)) %>% prop.table(margin=2) %>% round(2)
-  as.matrix(x)
+  # as.matrix(x)/cbind(p_sae, p_ae)
   expect_equal(unname(as.matrix(x)[,"Yes"]), p_sae, tolerance=0.05) # 5% tolerance
   expect_equal(unname(as.matrix(x)[,"No"]),   p_ae, tolerance=0.05)
 })