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")
)
}
if (interactive()) {
# Request to download data about rodents examined for Orthohantavirus
orthohantavirus_MSB <- get_records(guid_prefix="MSB:Mamm", taxon_name=Rodentia,
filter_by=list("detected"="Orthohantavirus")
)
}
Run the code above in your browser using DataLab