R/position_romans.R

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