tests/testthat/test-gist_save.R

context("gist_save")

test_that("gist_save works", {
  skip_on_cran()
  
  dir <- tempdir()
  aa <- gist("a65ac7e56b7b3f746913") %>% gist_save(dir)
  expect_is(aa, "gist_files")
  expect_is(aa[[1]], "character")
  
  # cleanup
  unlink(dir, recursive = TRUE, force = TRUE)
})
ropensci/gistr documentation built on Aug. 11, 2018, 3:49 a.m.