Use base R deparse() when writing plumber.R (#241)

* Use base R `deparse()` * Update NEWS * Pin vdiffr due to r-lib/vdiffr#137
rstudio · Sep 8, 2023 · 4efe187 · 4efe187
1 parent d085934
commit 4efe187
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
@@ -52,7 +52,8 @@ jobs:
           extra-packages:
             any::rcmdcheck,
             any::cpp11,
-            ranger=?ignore-before-r=4.1.0
+            ranger=?ignore-before-r=4.1.0,
+            [email protected]
           needs: check
 
       - name: Install Miniconda & Tensorflow

diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # vetiver (development version)
 
+* Fixed how plumber files are generated for `board_url()` (#241).
+
 # vetiver 0.2.3
 
 * Updated test involving renv and rsconnect (#230).

diff --git a/R/write-plumber.R b/R/write-plumber.R
@@ -59,7 +59,7 @@ 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 <- rlang::expr_deparse(pins::board_deparse(board))
+    board <- deparse(pins::board_deparse(board))
     board <- glue('b <- {board}')
 
     if (rlang::is_empty(plumber_dots)) {