tests/testthat/test-as.vp.R

test_that("as.vp() returns valid data", {
  df <- as.data.frame(example_vp, suntime=FALSE)
  expect_s3_class(as.vp(df), "vp")
  df <- as.data.frame(example_vpts, suntime=FALSE)
  expect_error(as.vp(df),"not a single vertical profile")
})

Try the bioRad package in your browser

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

bioRad documentation built on April 12, 2025, 1:10 a.m.