Switch Plumber$print() wording to use magrittr api (#742)

Co-Authored-By: James Blair <blairj09@users.noreply.github.com>
rstudio · Dec 30, 2020 · 5a7d95f · 5a7d95f
1 parent 9d29510
commit 5a7d95f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/plumber.R b/R/plumber.R
@@ -413,7 +413,7 @@ Plumber <- R6Class(
                          as.character(length(self$mounts)), " sub-router", ifelse(length(self$mounts) == 1, "", "s"),".\n", sep=""))
 
       if(topLevel){
-        cat(prefix, crayon::silver("# Call run() on this object to start the API.\n"), sep="")
+        cat(prefix, crayon::silver("# Use `pr_run()` on this object to start the API.\n"), sep="")
       }
 
       # Filters

diff --git a/tests/testthat/test-plumber-print.R b/tests/testthat/test-plumber-print.R
@@ -19,7 +19,7 @@ test_that("prints correctly", {
 
   expected_output <- c(
     "# Plumber router with 2 endpoints, 4 filters, and 2 sub-routers.",
-    "# Call run() on this object to start the API.",
+    "# Use `pr_run()` on this object to start the API.",
     "├──[queryString]",
     "├──[body]",
     "├──[cookieParser]",
@@ -43,7 +43,7 @@ test_that("prints correctly", {
 
   expected_output2 <- c(
     "# Plumber router with 1 endpoint, 4 filters, and 0 sub-routers.",
-    "# Call run() on this object to start the API.",
+    "# Use `pr_run()` on this object to start the API.",
     "├──[queryString]",
     "├──[body]",
     "├──[cookieParser]",
@@ -74,7 +74,7 @@ test_that("prints correctly", {
 
   expected_output <- c(
     "# Plumber router with 0 endpoints, 4 filters, and 1 sub-router.",
-    "# Call run() on this object to start the API.",
+    "# Use `pr_run()` on this object to start the API.",
     "├──[queryString]",
     "├──[body]",
     "├──[cookieParser]",