R/parameter_names.R

In tealeaves: Solve for Leaf Temperature Using Energy Balance

#' Get vector of parameter names
#' 
#' @param which A character string indicating which parameter names to retrieve, "constants", "enviro", or "leaf". Partial matching allowed.
#' 
#' @examples 
#' parameter_names("leaf")
#' 
#' @export
#' 

parameter_names <- function(which) {
  
  checkmate::assert_character(which, len = 1L)
  
  which %>% 
    match.arg(c("constants", "enviro", "leaf")) %>%
    switch(
         leaf = c("abs_l", "abs_s", "g_sw", "g_uw", "leafsize", "logit_sr"),
         enviro = c("P", "r", "RH", "S_sw", "T_air", "T_sky", "wind"),
         constants = c("c_p","D_h0", "D_m0", "D_w0", "epsilon", "eT", "G",
                       "nu_constant", "R", "R_air", "s", "sh_constant")
    )
  
}

#' Names of parameters that can be provided as functions
#'
#' @inheritParams parameter_names
#' 
#' #' @examples 
#' 
#' tealeaves:::.parameter_functions("leaf")
#' 
#' @noRd

.parameter_functions <- function(which) {
  
  checkmate::assert_character(which, len = 1L)

  which %>% 
    match.arg(c("constants", "enviro", "leaf")) %>%
    switch(
      leaf = NULL,
      enviro = c("T_sky"),
      constants = c("nu_constant", "sh_constant")
    )
  
}