R/parameter_load.R

In Chang-Yu-Chang/MigrationCommunity: Microbial Consumer-Resource Model

#' Read the parameters for building up a species pool
#' @description Read the parameters a text file for building species pool
#' @name parameter_load
#' @param parameter_text the text file that saves the parameters for generating species pool
#' @return ...

parameter_load <- function(
                           parameter_text) {
  l <- readLines(parameter_text) # Read the line in parameter txt
  l <- grep("^# ", l, value = T) # Remove the first line of comments
  eval(parse(text = gsub("# ", "", l)), envir = .GlobalEnv) # Save the parameters at global environment
  assign("parameter_list", gsub("# ", "", l) %>% strsplit(" = ") %>% sapply(function(x) {
    `[`(x, 1)
  }), envir = .GlobalEnv) # Save the vector of parameters
}