R/position_romans.R

position_romans <- function (x) {
  sapply(gsub("^\\[", "", gsub("\\]$", "", x)), function (xi) {any(is.roman(unlist(strsplit(xi, "-"), use.names = FALSE)))})
}
rOpenGov/bibliographica documentation built on April 10, 2022, 8:51 p.m.