if (FALSE) { # interactive()
vtdf <- search_hub("Aedes aegypti", "vt") |>
tail(20) |>
fetch() |>
glean(cols = c(
"DatasetID",
"Latitude",
"Longitude",
"Interactor1Genus",
"Interactor1Species"
), returnunique = TRUE) |>
assoc_gadm(lonlat_names = c("Longitude", "Latitude"))
}
Run the code above in your browser using DataLab