R/count_pages.R

count_pages <- function (z) {

  pp <- 0
  if (length(z) > 0) {
    if (seqtype(z) == "increasing.series") {
      pp <- intervalrule(z)
    } else if (seqtype(z) == "decreasing.series") {
      pp <- intervalrule(z, revert = TRUE)
    } else {
      pp <- maxrule(z)
    }
  }
  pp

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