R/create_beast2_input_operators.R

In ropensci/beautier: 'BEAUti' from R

#' Creates the operators section of a BEAST2 XML parameter file
#' @inheritParams default_params_doc
#' @return lines of XML text
#' @author Richèl J.C. Bilderbeek
#' @export
create_beast2_input_operators <- function(
  inference_model
) {
  # Do not be smart yet
  site_models <- list(inference_model$site_model)

  text <- tree_prior_to_xml_operators(
    inference_model = inference_model
  )

  text <- c(text, site_models_to_xml_operators(site_models))
  text <- c(
    text,
    clock_model_to_xml_operators(
      inference_model
    )
  )
  text <- interspace(text)
  text
}