#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.