tests/testthat/test_is_authorized.R

context("Is authorized")

testthat::test_that("is_authorized() works", {
  url <- "https://pasta.lternet.edu/package/report/eml/knb-lter-sbc/6006/3"
  vcr::use_cassette("is_authorized", {
    res <- is_authorized(url)
  })
  expect_true(class(res) %in% "logical")
})

Try the EDIutils package in your browser

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

EDIutils documentation built on Oct. 11, 2023, 1:08 a.m.