tests/testthat/test_run.r

In BlueGrisGris/vpRm: R Package for VPRM, a model of NEE

skip("doesn't work with r-cmd-check github action")
test_that("does run_vpRm produce the correct results?",{
	skip_on_cran() # integration test not appropriate for cran
	vpRm <- new_vpRm(
		vpRm_dir
		, lc_dir
		, isa_dir
		, temp_dir
		, dswrf_dir
		, evi_dir
		, evi_extrema_dir
		, green_dir
		, verbose = F
		)#end new_vpRm 
	domain <- terra::rast(domain_dir)
	domain <- domain[[5:8]]

	vpRm <- set_domain(vpRm, domain)
	vpRm <- proc_drivers(vpRm)
	vpRm <- run_vpRm(vpRm)

	expect_equal( dim(terra::rast(vpRm$dirs$nee_files_dir)) , dim(domain) )
	expect_equal( dim(terra::rast(vpRm$dirs$gee_files_dir)) , dim(domain) )
	expect_equal( dim(terra::rast(vpRm$dirs$respir_files_dir)) , dim(domain) )
}) #end test_that("does run.vpRm produce the correct results?"{