Nothing
#' Create a site model from name
#' @inheritParams default_params_doc
#' @return a site model
#' @seealso Use \link{create_site_model} to create a site model
#' @examples
#' check_empty_beautier_folder()
#'
#' site_model <- create_site_model_from_name(get_site_model_names()[1])
#'
#' check_empty_beautier_folder()
#' @author Richèl J.C. Bilderbeek
#' @export
create_site_model_from_name <- function(site_model_name) {
if (site_model_name == "JC69") {
create_jc69_site_model()
} else if (site_model_name == "HKY") {
create_hky_site_model()
} else if (site_model_name == "TN93") {
create_tn93_site_model()
} else {
check_true(site_model_name == "GTR")
create_gtr_site_model()
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.