Go back to rlang::expr_deparse() except for board_url() (#257)

* Go back to `rlang::expr_deparse()` except for `board_url()` * Update NEWS
rstudio · Nov 8, 2023 · 2a094b5 · 2a094b5
1 parent 82f08aa
commit 2a094b5
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # vetiver (development version)
 
+* Fixed bug in generating plumber files (#257).
+
 # vetiver 0.2.4
 
 * Fixed how plumber files are generated for `board_url()` (#241).

diff --git a/R/write-plumber.R b/R/write-plumber.R
@@ -59,7 +59,13 @@ vetiver_write_plumber <- function(board, name, version = NULL,
     load_infra_pkgs <- glue_collapse(glue("library({infra_pkgs})"), sep = "\n")
     load_required_pkgs <- glue_required_pkgs(v$metadata$required_pkgs, rsconnect)
 
-    board <- deparse(pins::board_deparse(board))
+    ## rlang::expr_deparse won't work for board_url, but
+    ## base deparse won't work for S3 and other complex boards:
+    if (inherits(board, "pins_board_url")) {
+        board <- deparse(pins::board_deparse(board))
+    } else {
+        board <- rlang::expr_deparse(pins::board_deparse(board))
+    }
     board <- glue('b <- {board}')
 
     if (rlang::is_empty(plumber_dots)) {