#' Check if \code{BEAST2} is installed properly.
#'
#' Calls \link{stop} if BEAST2 is improperly installed
#' @inheritParams default_params_doc
#' @return nothing
#' Will \link{stop} if BEAST2 is improperly installed
#' @examples
#' if (is_beast2_installed()) {
#' check_beast2()
#' }
#' @author Richèl J.C. Bilderbeek
#' @export
check_beast2 <- function(
beast2_path = get_default_beast2_path()
) {
tryCatch({
is_beast2_input_file(
filename = get_beastier_path("anthus_2_4.xml"),
beast2_path = beast2_path
)
}, error = function(e) {
stop(e)
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.