R/site_models_to_xml_state.R

Defines functions site_models_to_xml_state

#' Converts one or more clock models to the \code{state} section of the
#' XML as text
#' @inheritParams default_params_doc
#' @return lines of XML text, without indentation nor \code{state}
#'   tags
#' @author Richèl J.C. Bilderbeek
#' @noRd
site_models_to_xml_state <- function(
  site_models
) {
  testit::assert(are_site_models(site_models)) # nolint beautier function

  text <- NULL
  for (site_model in site_models) {
    text <- c(text,
      site_model_to_xml_state(site_model) # nolint beautier function
    )
  }
  text
}
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.