tests/testthat/test-phenocam.R

context("test-phenocam")

test_that("Phenocam works", {
  expect_true(grepl("latest", phenocam_image_url()))
  
  skip_on_cran()
  x <- phenocam_info()
  expect_equal(nrow(x), 1)
  expect_equal(x$site, "macleish")
})
beanumber/macleish documentation built on July 15, 2022, 7:58 p.m.