fix

Author: dshemetov

.Rbuildignore

@@ -17,4 +17,8 @@
 ^DEVELOPMENT.md$
 man-roxygen
 ^.venv$
-^sandbox.R$
+^sandbox.R$
+^README.Rmd$
+^README_cache$
+^pkgdown-watch.R$
+^scrap.Rmd$

DESCRIPTION

@@ -39,7 +39,6 @@ Imports:
     genlasso,
     ggplot2,
     glue,
-    here,
     lifecycle (>= 1.0.1),
     lubridate,
     magrittr,
@@ -56,6 +55,7 @@ Imports:
 Suggests:
     devtools,
     epidatr,
+    here,
     knitr,
     outbreaks,
     readr,

NAMESPACE

@@ -59,6 +59,7 @@ export(as_tsibble)
 export(autoplot)
 export(clone)
 export(complete)
+export(deprecated_quo_is_present)
 export(detect_outlr)
 export(detect_outlr_rm)
 export(detect_outlr_stl)

R/slide.R

@@ -79,15 +79,16 @@
 #' # The same as above, but unpacking using an unnamed data.frame with a formula
 #' jhu_csse_daily_subset %>%
 #'   epi_slide(
-#'     data.frame(
+#'     ~ data.frame(
 #'       cases_7sd = sd(.x$cases, na.rm = TRUE),
 #'       cases_7dav = mean(.x$cases, na.rm = TRUE)
 #'     ),
 #'     .window_size = 7
 #'   ) %>%
 #'   dplyr::select(geo_value, time_value, cases, cases_7sd, cases_7dav)
 #'
-#' # The same as above, but packing using a named data.frame with a formula
+#' # The same as above, but packing using a named data.frame with a tidy evaluation
+#' # expression
 #' jhu_csse_daily_subset %>%
 #'   epi_slide(
 #'     slide_packed = data.frame(

R/utils.R

@@ -836,6 +836,7 @@ list2var <- function(x) {
 #'
 #' @importFrom lifecycle deprecated
 #'
+#' @export
 #' @keywords internal
 deprecated_quo_is_present <- function(quo) {
   if (!rlang::is_quosure(quo)) {