R/pick_year.R

pick_year <- function (x) {

  # 1002[1000] -> 1000
  strsplit(gsub("\\]", "", x), "\\[")[[1]][[2]]

}
COMHIS/bibliographica documentation built on April 11, 2022, 3:40 p.m.