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 data in a .RDS file
save_response_rds(query, "wolves.RDS")
# \dontshow{
unlink("wolves.RDS")
# }
}
Run the code above in your browser using DataLab