diff --git a/DESCRIPTION b/DESCRIPTION index 2ae9d333..456cdb54 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: epipredict Title: Basic epidemiology forecasting methods -Version: 0.1.3 +Version: 0.1.4 Authors@R: c( person("Daniel J.", "McDonald", , "daniel@stat.ubc.ca", role = c("aut", "cre")), person("Ryan", "Tibshirani", , "ryantibs@cmu.edu", role = "aut"), diff --git a/R/utils-latency.R b/R/utils-latency.R index 8bcd2b1e..d854cb9c 100644 --- a/R/utils-latency.R +++ b/R/utils-latency.R @@ -359,6 +359,7 @@ drop_ignored_keys <- function(training, keys_to_ignore) { # note that the extra parenthesis black magic is described here: https://github.com/tidyverse/dplyr/issues/6194 # and is needed to bypass an incomplete port of `across` functions to `if_any` training %>% + ungroup() %>% filter((dplyr::if_all( names(keys_to_ignore), ~ . %nin% keys_to_ignore[[cur_column()]]