R/pagenav.R

In Chebuu/shrip: Shrip is used for shripping

pagenav <- function(pages, base, callback=function(res) res) {
  #' @description Use \code{pagenav} pa navegar en la nave.
  #' @title pagenav
  #' @example \code{pagenav(1:3, function(res) res)}
  #' @export
  lapply(pages, function(i) {
    x <- as.character(i)
    u <- paste(base, x, sep='')
    callback(GET(u))
  })
}