R/check_beast2.R

In richelbilderbeek/beastier: Call 'BEAST2'

#' 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)
    }
  )
}