Add board_deparse for board_url() (#774)

* Add `board_deparse()` for `board_url()`

* Document and update tests

* Update NEWS

NAMESPACE

@@ -14,6 +14,7 @@ S3method(board_deparse,pins_board_gcs)
 S3method(board_deparse,pins_board_kaggle_competition)
 S3method(board_deparse,pins_board_kaggle_dataset)
 S3method(board_deparse,pins_board_s3)
+S3method(board_deparse,pins_board_url)
 S3method(board_desc,default)
 S3method(board_desc,pins_board_folder)
 S3method(board_pin_create,pins_board)

NEWS.md

@@ -3,6 +3,8 @@
 * Fixed how dots are checked in `pin_write()` to make user-facing messages more 
   clear (#770).
 
+* Added `board_deparse` for `board_url()` (#774).
+
 # pins 1.2.1
 
 * New environment variable `PINS_CACHE_DIR` controls the location of the 

R/board_url.R

@@ -219,6 +219,13 @@ pin_fetch.pins_board_url <- function(board, name, version = NULL, ...) {
   meta
 }
 
+#' @rdname board_deparse
+#' @export
+board_deparse.pins_board_url <- function(board, ...) {
+  urls <- check_board_deparse(board, "urls")
+  expr(board_url(!!urls))
+}
+
 # Unsupported features ----------------------------------------------------
 
 #' @export

tests/testthat/_snaps/board_url.md

@@ -1,3 +1,10 @@
+# provides key methods
+
+    Code
+      board_deparse(board)
+    Output
+      board_url(c(rds = "https://raw.githubusercontent.com/rstudio/pins-r/master/tests/testthat/pin-rds/"))
+
 # raw pins can only be downloaded
 
     Pin does not declare file type so can't be automatically read
@@ -36,11 +43,6 @@
     Condition
       Error in `pin_version_delete()`:
       ! `board_url()` is read only
-    Code
-      board %>% board_deparse()
-    Condition
-      Error in `board_deparse()`:
-      ! This board doesn't support deparsing
     Code
       pin(1:5, name = "x", board = board)
     Condition

tests/testthat/test-board_url.R

@@ -18,6 +18,8 @@ test_that("provides key methods", {
   board %>%
     pin_read("rds") %>%
     expect_equal(data.frame(x = 1:10))
+
+  expect_snapshot(board_deparse(board))
 })
 
 test_that("absent pins handled consistently", {
@@ -158,7 +160,6 @@ test_that("useful errors for unsupported methods", {
     board %>% pin_meta("x", version = "x")
     board %>% pin_versions("x")
     board %>% pin_version_delete("x")
-    board %>% board_deparse()
     pin(1:5, name = "x", board = board)
     pin_get(name = "x", board = board)
   })