if (FALSE) { # interactive()
vtdf <- search_hub("Aedes aegypti", "vt") |>
tail(20) |>
fetch() |>
glean(cols = c(
"DatasetID",
"Latitude",
"Longitude",
"Interactor1Genus",
"Interactor1Species"
), returnunique = TRUE)
areadata <- fetch_ad(metric="temp", gid=2, use_cache=TRUE)
ad_extract_working <- assoc_ad(vtdf, areadata,
targetdate = c("2021-08-04"), enddate=c("2021-08-06"),
gid=2, lonlat_names = c("Longitude", "Latitude"))
}
Run the code above in your browser using DataLab