R/get_table.R

In neotoma2: Working with the Neotoma Paleoecology Database

#' @title Get table record from Neotoma
#' @description Call Neotoma and return a table
#'  (with limits & offsets for large tables)
#' @param x Table name (consult \url{https://open.neotomadb.org/dbschema/}
#'  for a complete list of table names.
#' @param limit Default 25 records
#' @param offset Default 0.
#' @returns selected `table` values from the Database 
#' @examples {
#' # Returns only the first 25 specimen records.
#' someSpec <- get_table('specimens')
#' }
#' @importFrom dplyr bind_rows
#' @importFrom purrr map
#' @export
get_table <- function(x, limit =25, offset=0) {
  result <- parseURL(paste0("dbtables/table?table=",
  x, "&limit=", limit, "&offset=", offset))
  output <- result$data$data %>%
    purrr::map(data.frame) %>%
    dplyr::bind_rows()

  return(output)
}