R/ee_footprints.R

In ecoengine: Programmatic Interface to the Web Service Methods Provided by UC Berkeley's Natural History Data

#' ee_footprints
#'
#' List of ecoengine footprints.
#' @template foptions
#' @export
#' @return data.frame
#' @examples 
#' # footprints <- ee_footprints()

ee_footprints <- function(foptions = list()) {
	# footprints_url <- "http://ecoengine.berkeley.edu/api/footprints/?format=json"
	footprints_url <- paste0(ee_base_url(), "footprints/?format=json")

	footprints <- GET(footprints_url, foptions)
	 warn_for_status(footprints, "Web resource is currently unavailable. Please try again later")
	 res <- content(footprints)
	 results <- do.call(rbind, res$results)
	 res <- ldply(res$results, function(x) { data.frame(t(unlist(x[-4])))  })
	 res[, -1]
}