Merge pull request #87 from ukhsa-collaboration/fix_sii_tidyselect_wa…

…rning Added all_of when selecting from external grouping_variables vector i…
ukhsa-collaboration · Dec 21, 2023 · c4a4693 · c4a4693
2 parents eb1d0f6 + 28a8af5
commit c4a4693
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: PHEindicatormethods
 Type: Package
-Version: 2.0.1.9004
+Version: 2.0.1.9005
 Title: Common Public Health Statistics and their Confidence Intervals 
 Description: Functions to calculate commonly used public health statistics and 
     their confidence intervals using methods approved for use in the production  

diff --git a/R/SII_function.R b/R/SII_function.R
@@ -736,15 +736,15 @@ phe_sii <- function(data, quantile, population,  # compulsory fields
               }
               )
             ) |>
-            select(grouping_variables, "CI_calcs")
+            select(all_of(grouping_variables), "CI_calcs")
 
           # Add CIs to model
           # join on dataset with SII/ RII confidence limits
           # Get CIs from first round of reps
           # Unnest confidence limits in a data frame for joining
 
           CI_rep1 <- popsSII_model_CIs %>%
-            select(grouping_variables, "CI_calcs") %>%
+            select(all_of(grouping_variables), "CI_calcs") %>%
             tidyr::unnest("CI_calcs") |>
             slice_head(n = 1)