tests/testthat/test-optimize-leaves.R

In cdmuir/leafoptimizer: Optimize leaf traits to different environments in silico

context("optimize_leaves")
library(leafoptimizer)

# Revise and uncomment

test_that("words", {
  
  # bake_par <- make_bakepar()
  # constants <- make_constants()
  # enviro_par <- make_enviropar()
  # leaf_par <- make_leafpar(replace = list(
  #   leafsize = set_units(c(0.001, 0.01, 0.1), m)
  # ))
  # 
  # traits <- "g_sc"
  # carbon_costs <- list(H2O = 1000, SR = 0)
  # ol <- optimize_leaves(traits, carbon_costs, bake_par, constants, 
  #                       enviro_par, leaf_par, set_units = TRUE, 
  #                       check = TRUE, n_init = 1L, progress = TRUE, 
  #                       quiet = FALSE, parallel = TRUE)
  
})