Merge pull request #281 from cmu-delphi/check_dots_empty

Check dots empty

Author: dajmcdon

R/arx_forecaster.R

@@ -222,6 +222,7 @@ arx_args_list <- function(
     nafill_buffer = Inf,
     ...) {
   # error checking if lags is a list
+  rlang::check_dots_empty()
   .lags <- lags
   if (is.list(lags)) lags <- unlist(lags)
 

R/layer_add_target_date.R

@@ -80,6 +80,7 @@ layer_add_target_date_new <- function(id = id, target_date = target_date) {
 
 #' @export
 slather.layer_add_target_date <- function(object, components, workflow, new_data, ...) {
+  rlang::check_dots_empty()
   the_recipe <- workflows::extract_recipe(workflow)
   the_frosting <- extract_frosting(workflow)
 

R/layer_cdc_flatline_quantiles.R

@@ -160,6 +160,7 @@ layer_cdc_flatline_quantiles_new <- function(
 #' @export
 slather.layer_cdc_flatline_quantiles <-
   function(object, components, workflow, new_data, ...) {
+    rlang::check_dots_empty()
     if (is.null(object$quantile_levels)) {
       return(components)
     }

R/layer_point_from_distn.R

@@ -78,6 +78,7 @@ layer_point_from_distn_new <- function(type, name, id) {
 #' @export
 slather.layer_point_from_distn <-
   function(object, components, workflow, new_data, ...) {
+    rlang::check_dots_empty()
     dstn <- components$predictions$.pred
     if (!inherits(dstn, "distribution")) {
       rlang::warn(

R/layer_population_scaling.R

@@ -138,6 +138,7 @@ layer_population_scaling_new <-
 #' @export
 slather.layer_population_scaling <-
   function(object, components, workflow, new_data, ...) {
+    rlang::check_dots_empty()
     stopifnot(
       "Only one population column allowed for scaling" =
         length(object$df_pop_col) == 1