In ReseauBiodiversiteQuebec/tableaucoleo: Exploration des données sur les sites de Coléo

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(mapselector)

data(regions_simplified_Ouranos)


downloaded_sites <- rcoleo::download_sites_sf()

# add a display name column

downloaded_sites_names <- mapselector::add_site_name_df(downloaded_sites)

library(sf)


# need to set the crs for downloaded sites
st_crs(downloaded_sites) <- st_crs(regions_simplified_Ouranos)
joined_sites_our <- st_join(downloaded_sites, regions_simplified_Ouranos)


joined_nice_names <- mapselector::add_site_name_df(joined_sites_our)

mapselector::make_lookup_vector(joined_nice_names, value_col = "Region", name_col = "display_name")

ReseauBiodiversiteQuebec/tableaucoleo documentation built on June 17, 2022, 8:38 p.m.