diff --git a/R/eval-select.R b/R/eval-select.R index 7ee2cc4..7f93e69 100644 --- a/R/eval-select.R +++ b/R/eval-select.R @@ -106,6 +106,7 @@ #' # same as `enquo(arg)`. #' #' # give a better error message if you don't want empty selection +#' # if supplying `error_arg` #' select_not_empty <- function(x, cols) { #' eval_select(expr = enquo(cols), data = x, allow_empty = FALSE, error_arg = "cols") #' } diff --git a/man/eval_select.Rd b/man/eval_select.Rd index bced545..bbb14d3 100644 --- a/man/eval_select.Rd +++ b/man/eval_select.Rd @@ -145,6 +145,7 @@ my_function <- function(.x, .expr, ...) { # same as `enquo(arg)`. # give a better error message if you don't want empty selection +# if supplying `error_arg` select_not_empty <- function(x, cols) { eval_select(expr = enquo(cols), data = x, allow_empty = FALSE, error_arg = "cols") }