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")
})
adokter/bioRad documentation built on June 10, 2025, 1:55 p.m.