Nothing
# test-high_level_functions
# generally test the calibration functions, with write_to_file = FALSE
# in general, it is hard to see how these should return an error if
# all other tests pass, but good practice to include these in case a
# stray character enters these functions somehow.
# 210630: these tests actually don't do much right now, other than
# increase coverage!
# could spend some time actually having these test important functionality.
fin <- system.file("extdata",
"NEON.D15.ONAQ.DP4.00200.001.nsae.2019-05.basic.packed.h5",
package = "NEONiso", mustWork = TRUE)
fout <- "/dev/null"
test_that("calibrate_carbon returns 'Extracting data' if write_to_file=FALSE", {
skip_on_cran()
# these tests could probably be made more useful!!
expect_output(calibrate_carbon(fin, fout, "ONAQ",
method = "Bowling_2003",
calibration_half_width = 0.5,
force_cal_to_beginning = TRUE,
force_cal_to_end = TRUE,
gap_fill_parameters = FALSE,
filter_ambient = TRUE,
r2_thres = 0.95,
correct_refData = TRUE,
write_to_file = FALSE), "Extracting data")
expect_output(calibrate_carbon(fin, fout, "ONAQ",
method = "linreg",
calibration_half_width = 0.5,
force_cal_to_beginning = TRUE,
force_cal_to_end = TRUE,
gap_fill_parameters = FALSE,
filter_ambient = TRUE,
r2_thres = 0.95,
correct_refData = TRUE,
write_to_file = FALSE), "Extracting data")
})
test_that("calibrate_carbon_bymonth returns warning, as it is deprecated", {
skip_on_cran()
# these tests could probably be made more useful!!
expect_warning(calibrate_carbon_bymonth(fin, fout, "ONAQ",
method = "Bowling_2003",
calibration_half_width = 0.5,
force_cal_to_beginning = TRUE,
force_cal_to_end = TRUE,
gap_fill_parameters = FALSE,
filter_ambient = TRUE,
r2_thres = 0.95,
correct_refData = TRUE,
write_to_file = FALSE))
expect_warning(calibrate_carbon_bymonth(fin, fout, "ONAQ",
method = "linreg",
calibration_half_width = 0.5,
force_cal_to_beginning = TRUE,
force_cal_to_end = TRUE,
gap_fill_parameters = FALSE,
filter_ambient = TRUE,
r2_thres = 0.95,
correct_refData = TRUE,
write_to_file = FALSE))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.