R/get_duplicate_param_ids.R

In richelbilderbeek/beastier: Call 'BEAST2'

#' Find duplicate \code{RealParameter} IDs
#' @param text the XML as text
#' @return a vector of duplicate IDs, will be empty if all IDs are unique
#' @seealso to see if all IDs are unique, use \code{\link{has_unique_ids}}
#' @author Richèl J.C. Bilderbeek
#' @examples
#' check_empty_beaustier_folders()
#'
#' line_1 <- "<parameter id=\"RealParameter.1\" ...</parameter>"
#' line_2 <- "<parameter id=\"RealParameter.2\" ...</parameter>"
#' # No elements
#' get_duplicate_param_ids(c(line_1, line_2))
#'
#' # 'RealParameter.1'
#' get_duplicate_param_ids(c(line_1, line_1))
#'
#' # 'RealParameter.2'
#' get_duplicate_param_ids(c(line_2, line_2))
#'
#' check_empty_beaustier_folders()
#' @export
get_duplicate_param_ids <- function(
  text
) {
  if (!is.character(text)) {
    stop("'text' must be text")
  }
  matches <- text
  for (i in seq_along(matches)) {
    matches[i] <- stringr::str_extract(
      str = text[i],
      pattern = "RealParameter\\.[[:digit:]]+")
  }
  matches <- matches[!is.na(matches)]
  matches[duplicated(matches)]
}