Remove ellipsis in favour of rlang. (#283)

Co-authored-by: Julia Silge <julia.silge@gmail.com>
rstudio · Jul 3, 2024 · 5c321a4 · 5c321a4
1 parent e353c3b
commit 5c321a4
Show file tree

Hide file tree

Showing 7 changed files with 9 additions and 10 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -22,7 +22,6 @@ Imports:
     butcher (>= 0.3.1),
     cereal,
     cli,
-    ellipsis,
     fs,
     generics,
     glue,

diff --git a/R/endpoint.R b/R/endpoint.R
@@ -18,7 +18,7 @@
 #'
 predict.vetiver_endpoint <- function(object, new_data, ...) {
     rlang::check_installed(c("jsonlite", "httr"))
-    ellipsis::check_dots_used()
+    check_dots_used()
     data_json <- jsonlite::toJSON(new_data, na = "string")
     ret <- httr::POST(object$url, ..., body = data_json)
     resp <- httr::content(ret, "text", encoding = "UTF-8")

diff --git a/R/prototype.R b/R/prototype.R
@@ -51,7 +51,7 @@ vetiver_ptype.default <- function(model, ...) {
 #' @rdname vetiver_create_ptype
 #' @export
 vetiver_create_ptype <- function(model, save_prototype, ...) {
-    ellipsis::check_dots_used()
+    check_dots_used()
     if (isTRUE(save_prototype)) {
         ptype <- vetiver_ptype(model, ...)
     } else if (isFALSE(save_prototype)) {

diff --git a/R/rsconnect.R b/R/rsconnect.R
@@ -58,7 +58,7 @@ vetiver_deploy_rsconnect <- function(board, name, version = NULL,
                                      ...,
                                      additional_pkgs = character(0)) {
 
-    ellipsis::check_dots_used()
+    check_dots_used()
     tmp <- fs::dir_create(tempdir(), "vetiver")
     vetiver_write_plumber(board = board,
                           name = name,

diff --git a/R/sagemaker.R b/R/sagemaker.R
@@ -62,7 +62,7 @@ vetiver_deploy_sagemaker <- function(board,
                                      endpoint_args = list(),
                                      repo_name = glue("vetiver-sagemaker-{name}")) {
 
-    ellipsis::check_dots_empty()
+    check_dots_empty()
     if (!inherits(board, "pins_board_s3")) {
         stop_input_type(board, "an S3 pins board")
     }
@@ -207,7 +207,7 @@ vetiver_sm_build <- function(board,
                              log = TRUE,
                              ...) {
     check_installed("smdocker")
-    ellipsis::check_dots_used()
+    check_dots_used()
     compute_type <- arg_match(compute_type)
     docker_args <- list_modify(docker_args, port = 8080)
     predict_args <- list_modify(predict_args, path = "/invocations")

diff --git a/R/vetiver-model.R b/R/vetiver-model.R
@@ -59,7 +59,7 @@ vetiver_model <- function(model,
                           save_ptype = deprecated(),
                           versioned = NULL) {
 
-    ellipsis::check_dots_used()
+    check_dots_used()
     if (lifecycle::is_present(save_ptype)) {
         lifecycle::deprecate_soft(
             "0.2.0",
@@ -131,7 +131,7 @@ print.vetiver_model <- function(x, ...) {
 
 #' @export
 predict.vetiver_model <- function(object, ...) {
-    ellipsis::check_dots_used()
+    check_dots_used()
     model <- bundle::unbundle(object$model)
     predict(model, ...)
 }
@@ -140,7 +140,7 @@ predict.vetiver_model <- function(object, ...) {
 
 #' @export
 augment.vetiver_model <- function(x, ...) {
-    ellipsis::check_dots_used()
+    check_dots_used()
     model <- bundle::unbundle(x$model)
     augment(model, ...)
 }

diff --git a/R/write-docker.R b/R/write-docker.R
@@ -64,7 +64,7 @@ vetiver_write_docker <- function(vetiver_model,
                                  expose = TRUE,
                                  additional_pkgs = character(0)) {
 
-    ellipsis::check_dots_empty()
+    check_dots_empty()
 
     if (!fs::file_exists(plumber_file)) {
         cli::cli_abort(