tests/testthat/test-bitbucket.R

context("Bitbucket")

test_that("we can use devtools:::download to retrieve Bitbucket archives", {
  skip("run manually for now")

  if (!canUseBitbucketDownloader())
    skip("requires devtools")

  url <- "https://bitbucket.org/mariamedp/packrat-test-pkg/get/5a6b90280c5fec133efb88aec95014d4f9aef80f.tar.gz"
  destination <- tempfile("packrat-test-bitbucket-", fileext = ".tar.gz")
  result <- bitbucketDownload(url, destination)
  expect_true(result == 0)
  expect_true(file.exists(destination))
  unlink(destination)

})

Try the packrat package in your browser

Any scripts or data that you put into this service are public.

packrat documentation built on May 2, 2019, 6:24 a.m.