test_that("efflux works", { PROFLUX <- readRDS(testthat::test_path("fixtures", "base_proflux.rds")) EFFLUX <- efflux(PROFLUX) expect_equal(nrow(EFFLUX), 24) expect_equal(round(EFFLUX$efflux, 1), c(0.8,0.7,1.4,1.1,1.7,1.4,4.1,3.3,5.9,4.5,7.2,5.7,10.1,8.5,8.1, 6.9,6.2,5.2,4.0,3.2,1.7,1.6,1.2,1.1)) }) test_that("efflux from fgres works", { base_dat <- readRDS(testthat::test_path("fixtures", "base_dat.rds")) FLUX <- fg_flux(base_dat) EFFLUX <- efflux(FLUX) EFFLUX_lex <- efflux(FLUX, method = "lex", layers = c(1,2)) expect_equal(nrow(EFFLUX), 24) expect_equal(round(EFFLUX$efflux[4],3), 0.441) expect_mapequal(efflux(FLUX, method = "top") |> data.frame(), FLUX$FLUX |> dplyr::filter(lower == 0) |> dplyr::rename(efflux = flux) |> dplyr::left_join(FLUX$profiles) |> dplyr::select(site, Date, prof_id, efflux, mode, gas) |> dplyr::arrange(prof_id) |> data.frame()) expect_equal(nrow(EFFLUX_lex),24) expect_equal(round(EFFLUX_lex$efflux[5], 3), 0.766) }) test_that("efflux from fgres can deal with NAs", { base_dat <- readRDS(testthat::test_path("fixtures", "base_dat.rds")) FLUX <- fg_flux(base_dat) FLUX$FLUX$flux <- NA EFFLUX <- efflux(FLUX, method = "lex", layers = c(1,2)) expect_equal(nrow(EFFLUX), 24) expect_true(all(is.na(EFFLUX$efflux))) })