View source: R/produce_site_map.R
produce_site_map | R Documentation |
This function produces a
map
of the site boundaries
as provided by the DEIMS-SDR catalogue, within
a given country and network.
produce_site_map(
deimsid,
countryCode,
listOfSites,
gridNx,
gridNy,
width = 0.25,
height = 0.25,
bboxXMin = 0,
bboxXMax = 0,
bboxYMin = 0,
bboxYMax = 0,
show_map = FALSE
)
deimsid |
A |
countryCode |
A |
listOfSites |
A |
gridNx |
A |
gridNy |
A |
width |
A |
height |
A |
bboxXMin |
A |
bboxXMax |
A |
bboxYMin |
A |
bboxYMax |
A |
show_map |
A |
The output of the function is an image
of the boundary of the
site, OSM as base map and all country sites map.
Alessandro Oggioni, phD (2020) oggioni.a@irea.cnr.it
sfRReLTER
\insertRefjsonliteRReLTER
\insertReftibbleRReLTER
\insertRefrasterRReLTER
\insertRefrgeosRReLTER
\insertRefrosmRReLTER
\insertReftmapRReLTER
\insertRefgridRReLTER
## Not run:
# Example of Lange Bramke site
sitesNetwork <- get_network_sites(
networkDEIMSID =
"https://deims.org/networks/e904354a-f3a0-40ce-a9b5-61741f66c824"
)
map <- produce_site_map(
deimsid = "https://deims.org/8e24d4f8-d6f6-4463-83e9-73cac2fd3f38",
countryCode = "DEU",
listOfSites = sitesNetwork,
gridNx = 0.2,
gridNy = 0.7
)
# Example of Eisenwurzen site
sitesNetwork <- get_network_sites(
networkDEIMSID =
"https://deims.org/networks/d45c2690-dbef-4dbc-a742-26ea846edf28"
)
map <- produce_site_map(
deimsid = "https://deims.org/d0a8da18-0881-4ebe-bccf-bc4cb4e25701",
countryCode = "AUT",
listOfSites = sitesNetwork,
gridNx = 0.2,
gridNy = 0.7
)
# Example of Lake Maggiore site
sitesNetwork <- get_network_sites(
networkDEIMSID =
"https://deims.org/network/7fef6b73-e5cb-4cd2-b438-ed32eb1504b3"
)
# In the case of Italian sites are selected only true sites and excluded the
# macrosites.
sitesNetwork <- (sitesNetwork[!grepl('^IT', sitesNetwork$title),])
sf::st_crs(sitesNetwork) = 4326
siteMap <- produce_site_map(
deimsid = "https://deims.org/f30007c4-8a6e-4f11-ab87-569db54638fe",
countryCode = "ITA",
listOfSites = sitesNetwork,
gridNx = 0.7,
gridNy = 0.35,
show_map = TRUE
)
siteMap
# with show_map = FALSE
siteMap <- produce_site_map(
deimsid = "https://deims.org/f30007c4-8a6e-4f11-ab87-569db54638fe",
countryCode = "ITA",
listOfSites = sitesNetwork,
gridNx = 0.7,
gridNy = 0.35
)
siteMap
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.