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")
})

Try the macleish package in your browser

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

macleish documentation built on July 7, 2022, 1:05 a.m.