R/pick_year.R

pick_year <- function (x) {

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

}
rOpenGov/bibliographica documentation built on April 10, 2022, 8:51 p.m.