Nothing
#' Internal function
#'
#' Create the folder for the BEAST2 screenlog file
#' @inheritParams default_params_doc
#' @author Richèl J.C. Bilderbeek
#' @export
create_beast2_screenlog_folder <- function(beast2_options) {
# Extract the screenlog file
check_true(file.exists(beast2_options$input_filename))
screenlog_filename <- extract_screenlog_filename_from_beast2_input_file( # nolint indeed a long line
input_filename = beast2_options$input_filename
)
# The user specified no screenlog file
if (is.na(screenlog_filename)) {
return(invisible(beast2_options))
}
dir.create(
dirname(screenlog_filename),
showWarnings = FALSE,
recursive = TRUE
)
check_true(
dir.exists(dirname(screenlog_filename))
)
invisible(beast2_options)
}
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.