tests/testthat/test-tleaves-crossing.R

In cdmuir/tealeaves: Solve for Leaf Temperature Using Energy Balance

context("tleaves() crossing")
library(tealeaves)

test_that("tleaves output has correct dimensions", {

cs <- make_constants()
lp <- make_leafpar()
ep <- make_enviropar(replace = list(
  T_sky = set_units(c(298.15, 303.15), K)
))

tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE, 
              set_units = FALSE, parallel = FALSE)

n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
expect_equal(nrow(tl), n)


ep <- make_enviropar(replace = list(T_sky = function(pars) {pars$T_air}))

tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE, 
              set_units = FALSE, parallel = FALSE)

n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
expect_equal(nrow(tl), n)


cs <- make_constants()
lp <- make_leafpar()
ep <- make_enviropar(replace = list(
  T_air = set_units(c(298.15, 303.15), K),
  T_sky = function(pars) {pars$T_air}
))
tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE, 
              set_units = FALSE, parallel = FALSE)
n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
expect_equal(nrow(tl), n)


cs <- make_constants()
lp <- make_leafpar()
ep <- make_enviropar(
  replace = list(
    S_sw = set_units(c(300, 1000), "W/m^2"),
    T_air = set_units(seq(273.15, 313.15, length.out = 3), "K")
  )
)

tl <- tleaves(lp, ep, cs, progress = FALSE, quiet = TRUE, 
              set_units = FALSE, parallel = FALSE)
n <- exp(sum(log(c(sapply(lp, length), sapply(ep, length)))))
testthat::expect_equal(nrow(tl), n)

})