test_transpiration.R
In medfate: Mediterranean Forest Simulation

library(medfate)

data(exampleforest)

data(SpParamsMED)
data(examplemeteo)

#Define soil with default soil params (4 layers)
examplesoil <- defaultSoilParams(4)

d <- 100
meteovec <- unlist(examplemeteo[d,-1])
date <- as.character(examplemeteo$dates[d])

control_sperry <- defaultControl("Sperry")
control_sperry$verbose <- FALSE
control_sureau <- defaultControl("Sureau")
control_sureau$verbose <- FALSE

#Initialize input

test_that("transpiration granier can be run ",{
  control_granier <- defaultControl("Granier")
  control_granier$verbose <- FALSE
  x1 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control_granier)
  Psi_ini <- rlang::duplicate(x1$internalWater$PlantPsi)
  expect_type(transp_transpirationGranier(x1, examplemeteo, 1, 
                                          latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                          modifyInput = FALSE), "list")
  expect_equal(x1$internalWater$PlantPsi, Psi_ini) # Check that psi has not changed
  expect_type(transp_transpirationGranier(x1, examplemeteo, 1, 
                                          latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                          modifyInput = TRUE), "list")
  expect_false(all(x1$internalWater$PlantPsi == Psi_ini)) # Check that psi has changed
  control_granier$rhizosphereOverlap <- "partial"
  x1 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control_granier)
  Psi_ini <- rlang::duplicate(x1$internalWater$PlantPsi)
  expect_type(transp_transpirationGranier(x1, examplemeteo, 1, 
                                          latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                          modifyInput = FALSE), "list")
  expect_equal(x1$internalWater$PlantPsi, Psi_ini) # Check that psi has not changed
  expect_type(transp_transpirationGranier(x1, examplemeteo, 1, 
                                          latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                          modifyInput = TRUE), "list")
  expect_false(all(x1$internalWater$PlantPsi == Psi_ini)) # Check that psi has changed
})
# test_that("transpiration granier can be run with medfateland example ",{
#   testthat::skip_if_not_installed("medfateland")
#   control_granier <- defaultControl("Granier")
#   control_granier$verbose <- FALSE
#   library(medfateland)
#   f <- example_ifn$forest[[1]]
#   x1 <- spwbInput(f,examplesoil, SpParamsMED, control_granier)
#   expect_type(transp_transpirationGranier(x1, examplemeteo, 1, 
#                                           latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
#                                           modifyInput = FALSE), "list")
# })

test_that("transpiration sperry can be run ",{
  control_sperry <- defaultControl("Sperry")
  control_sperry$verbose <- FALSE
  x1 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control_sperry)
  expect_type(transp_transpirationSperry(x1, examplemeteo, 1, 
                                         latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                         modifyInput = FALSE), "list")
  control_sperry$rhizosphereOverlap <- "partial" 
  x1 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control_sperry)
  expect_type(transp_transpirationSperry(x1, examplemeteo, 1, 
                                         latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                         modifyInput = FALSE), "list")
})

# test_that("transpiration sperry can be run with medfateland example ",{
#   testthat::skip_if_not_installed("medfateland")
#   control_sperry <- defaultControl("Sperry")
#   control_sperry$verbose <- FALSE
#   library(medfateland)
#   f <- example_ifn$forest[[1]]
#   x1 <- spwbInput(f,examplesoil, SpParamsMED, control_sperry)
#   expect_type(transp_transpirationSperry(x1, examplemeteo, 1, 
#                                           latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
#                                           modifyInput = FALSE), "list")
# })

test_that("transpiration sureau can be run ",{
  control_sureau <- defaultControl("Sureau")
  control_sureau$verbose <- FALSE
  x1 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control_sureau)
  Psi_ini <- rlang::duplicate(x1$internalWater$StemPsi)
  t1 <- transp_transpirationSureau(x1, examplemeteo, 1, 
                                   latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                   modifyInput = FALSE)
  expect_type(t1, "list")
  expect_equal(x1$internalWater$StemPsi, Psi_ini) # Check that psi has not changed
  t1 <- transp_transpirationSureau(x1, examplemeteo, 1, 
                                   latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                   modifyInput = TRUE)
  expect_type(t1, "list")
  expect_false(all(x1$internalWater$StemPsi == Psi_ini)) # Check that psi has changed
  
  
  control_sureau$rhizosphereOverlap <- "partial" 
  x1 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control_sureau)
  Psi_ini <- rlang::duplicate(x1$internalWater$StemPsi)
  t1 <- transp_transpirationSureau(x1, examplemeteo, 1, 
                                   latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                   modifyInput = FALSE)
  expect_type(t1, "list")
  expect_equal(x1$internalWater$StemPsi, Psi_ini) # Check that psi has not changed
  t1 <- transp_transpirationSureau(x1, examplemeteo, 1, 
                                   latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
                                   modifyInput = TRUE)
  expect_type(t1, "list")
  expect_false(all(x1$internalWater$StemPsi == Psi_ini)) # Check that psi has changed
})


# test_that("transpiration sureau can be run with medfateland example ",{
#   testthat::skip_if_not_installed("medfateland")
#   control_sureau <- defaultControl("Sureau")
#   control_sureau$verbose <- FALSE
#   library(medfateland)
#   f <- example_ifn$forest[[1]]
#   x1 <- spwbInput(f,examplesoil, SpParamsMED, control_sureau)
#   expect_type(transp_transpirationSureau(x1, examplemeteo, 1, 
#                                           latitude = 41.82592, elevation = 100, slope = 0, aspect = 0, 
#                                           modifyInput = FALSE), "list")
# })