Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
eval = rlang::is_installed("filelock")
)
## ----setup--------------------------------------------------------------------
library(pins)
## -----------------------------------------------------------------------------
# Legacy API
board_register_local("vignette", tempfile())
pin(head(mtcars), "mtcars", board = "vignette")
pin_get("mtcars", board = "vignette")
## -----------------------------------------------------------------------------
# Modern API
board <- board_local()
pin_write(board, head(mtcars), "mtcars")
pin_read(board, "mtcars")
## ----echo=FALSE---------------------------------------------------------------
Sys.sleep(1)
## -----------------------------------------------------------------------------
# Modern API
board <- board_local()
board %>% pin_write(head(mtcars), "mtcars")
board %>% pin_read("mtcars")
## -----------------------------------------------------------------------------
# Legacy API
path <- tempfile()
writeLines(letters, path)
pin(path, "alphabet", board = "vignette")
pin_get("alphabet", board = "vignette")
## -----------------------------------------------------------------------------
# Modern API
board %>% pin_upload(path, "alphabet")
board %>% pin_download("alphabet")
## -----------------------------------------------------------------------------
# Legacy API
base <- "https://raw.githubusercontent.com/rstudio/pins-r/main/tests/testthat/"
(pin(paste0(base, "pin-files/first.txt"), board = "vignette"))
## -----------------------------------------------------------------------------
# Modern API
board_github <- board_url(c(
raw = paste0(base, "pin-files/first.txt")
))
board_github %>% pin_download("raw")
## -----------------------------------------------------------------------------
# Legacy API
pin(data.frame(x = 1:3), "test-data")
pin_get("test-data")
## -----------------------------------------------------------------------------
# Modern API
board <- board_local()
board %>% pin_write(data.frame(x = 1:3), "test-data")
board %>% pin_read("test-data")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.