tests/testthat/test-alternate.R

In valentingar/ConFluxPro: A toolkit for soil gas analysis

test_that("topheight only", {

  PROFLUX <- readRDS(testthat::test_path("fixtures", "base_proflux.rds"))


  run_map <- cfp_run_map(PROFLUX,
                     params = list("topheight" = c(-1)),
                     method = "permutation",
                     type = c("addition")
  )

  expect_error(
  alternate(PROFLUX,
            run_map = run_map,
            f = function(x) complete_soilphys(x, overwrite = TRUE),
            return_raw = TRUE),
  NA
  )


})

test_that("layers from soilphys", {

  PROFLUX <- readRDS(testthat::test_path("fixtures", "base_proflux.rds"))


  run_map <- cfp_run_map(PROFLUX,
                     params = list("topheight" = c(-1, 1),
                                   "TPS" = c(0.8, 1.2)),
                     method = "random",
                     type = c("addition", "factor"),
                     layers_different = TRUE,
                     layers_from = "soilphys",
                     n_runs = 2
  )

  expect_no_error(
    alternate(PROFLUX,
              run_map = run_map,
              f = function(x) complete_soilphys(x,
                                                overwrite = TRUE,
                                                DSD0_formula = "a*AFPS^b"),
              return_raw = TRUE)
  )


})