R/rip.R

In Chebuu/shrip: Shrip is used for shripping

rip <- function(nseq, callback.1, callback.2) {
  #' Shrip it breh
  #' @author Jeffery Spicoli
  #' @param nseq Pages over which (hard "R") one wishes to iterate.
  #' @param callback.1 The first callback
  #' @param callback.1 The second callback
  #' @export
  ids <- unlist(pagenav(nseq, PAGE_BASE, callback.1))
  ifiles <-unlist(pagenav(ids, FILE_BASE, callback.2))
  list(
    IDS = lapply(ids, ripids),
    FILES = lapply(ifiles, ripifiles)
  )
}