R/repair-terms.R

In poissonconsulting/term: Create, Manipulate and Query Parameter Terms

#' Repair Terms
#'
#' Repairs a terms vector.
#'
#' Invalid elements are replaced by missing values and spaces removed.
#'
#' @inheritParams params
#' @return The repaired term vector.
#' @seealso [term-vector()], [valid_term()] and [normalize_terms()]
#' @export
#'
#' @examples
#' repair_terms(new_term(c("b[3]", "b")))
#' repair_terms(new_term(c("a[3]", "b[1]")))
#' repair_terms(new_term(c("a [3]", " b [ 1  ] ")))
#' repair_terms(new_term(c("a", NA)))
repair_terms <- function(x, normalize = TRUE) {
  chk_s3_class(x, "term")
  chk_flag(normalize)
  x <- unclass(x)
  x <- repair_terms_impl(x)
  if (normalize) {
    x <- normalize_terms_impl(x)
  }
  new_term(x)
}