Obtaining information about many LTER Sites

sites <- as_tibble(listItaSites) %>%
  filter(grepl("Lago", title)) %>%
  filter(!row_number() %in% c(1, 21, 22))

allSitesBounds <- lapply(sites$uri, function(s) {
  get_site_info(s, category = "Boundaries")
})
allSitesBounds <- do.call(rbind, allSitesBounds) # Creates an `sf` object

# Map
leaflet(data = allSitesBounds) %>%
  addPolygons() %>% 
  addProviderTiles(provider = "CartoDB.PositronNoLabels",
                            group = "Basemap",
                            layerId = 123) %>%
  addTiles(
    "http://{s}.basemaps.cartocdn.com/light_only_labels/{z}/{x}/{y}.png")

# Using sites from previous example
allSitesContacts <- lapply(sites$uri, function(s) {
  get_site_info(s, category = "Contacts")
})
allSitesContacts <- do.call(rbind, allSitesContacts)

contacts <- tibble::tibble(
  siteName = NA,
  managerName = NA,
  managerEmail = NA,
  managerORCID = NA
)

for (i in seq_along(allSitesContacts)) {
  contacts <- contacts %>% 
    tibble::add_row(
      siteName = allSitesContacts$title[[i]],
      managerName = allSitesContacts$siteManager[[1]]$name,
      managerEmail = allSitesContacts$siteManager[[1]]$email,
      managerORCID = allSitesContacts$siteManager[[1]]$orcid
    )
}
# Contacts table
knitr::kable(
  head(contacts, 10),
  caption = "List of the contacts"
)