Nothing
#' 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)]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.