library(ArctosR)
if (interactive()) {
# Request to download all available data
query <- get_records(
scientific_name = "Canis lupus", guid_prefix = "MSB:Mamm",
columns = list("guid", "parts", "partdetail")
)
# Save the response in a flat CSV with an additional metadata file in JSON
save_response_csv(query, "msb-wolves.csv", with_metadata = TRUE)
# \dontshow{
unlink("msb-wolves.csv")
unlink("msb-wolves.csv.json")
# }
}
Run the code above in your browser using DataLab