get_smarter_geojson: Get SMARTER GeoJSON Samples

In cnr-ibba/r-smarter-api: Fetch SMARTER Data Through REST API

Get SMARTER GeoJSON Samples

Description

Fetch SMARTER REST API samples with GPS coordinates and return them into as simple features.

Usage

get_smarter_geojson(species, query = list(), polygons = NULL)

Arguments

species	a smarter species ("Goat", "Sheep")
query	a list of query arguments
polygons	a sf object with polygons to filter the samples

Value

a sf data object

Examples

## Not run: 
# required to execute pipe operations and draw examples
library(dplyr)
library(leaflet)

# get goat samples with GPS coordinates as sf object
goat_data <- get_smarter_geojson(
  species = "Goat",
  query = list(
    type = "background",
    country = "Italy"
  )
)

# leaflet doesn't handle MULTIPOINT data (https://github.com/rstudio/leaflet/issues/352)
# Cast them into point considering only the first objects
# (https://r-spatial.github.io/sf/reference/st_cast.html)
goat_data <- goat_data %>% sf::st_cast("POINT", do_split=FALSE)

# draw samples in a leaflet map using markerCluser
leaflet(data = goat_data) %>%
  leaflet::addTiles() %>%
  leaflet::addMarkers(
    clusterOptions = leaflet::markerClusterOptions(), label = ~smarter_id
  )

## End(Not run)

cnr-ibba/r-smarter-api documentation built on July 2, 2024, 12:24 p.m.