R/ia_files.R

In ropensci/internetarchive: An API Client for the Internet Archive

#' Access the list of files associated with an Internet Archive item
#' @param items A list describing an Internet Archive items returned from
#'   the API.
#' @return A list containing the files as a list of character vectors.
#' @examples
#' \dontrun{
#' ats_query <- c("publisher" = "american tract society")
#' ids       <- ia_search(ats_query, num_results = 3)
#' items     <- ia_get_items(ids)
#' files     <- ia_files(items)
#' files
#' }
#' @export
ia_files <- function(items) {
  files_to_data_frame <- function(i) {
    f <- unlist(names(i$files))
    data_frame(id = unlist(i$metadata$identifier),
               file = f, type = file_ext(file))
  }
  dfs <- lapply(items, files_to_data_frame)
  bind_rows(dfs)
}