knitr::opts_chunk$set( collapse = TRUE, comment = "#>", warning = FALSE, message = FALSE )
Aquatic animal tracking data from the European Tracking Network.
Click to see all the columns of "Detections"
# Get the abstract and/or description from IMIS and print here library(jsonlite) dasid <- fromJSON("https://www.vliz.be/en/imis?module=dataset&dasid=5912&show=json") abstract <- dasid[["datasetrec"]][["EngAbstract"]] description <- dasid[["datasetrec"]][["EngDescr"]] if (is.null(abstract) & is.null(description)){ } else if(is.null(abstract) & !is.null(description)){ out <- description } else if(!is.null(abstract) & is.null(description)){ out <- abstract } else if(!is.null(abstract) & !is.null(description)){ out <- paste0(abstract, "</br></br>", description) } cat(out)
The ETN Data Explorer provides a set of functions to access the aquatic animal tracking data and metadata linked to the European Tracking Network (ETN). As the access to data is linked to specific user profiles, keep in mind that the results can be different for other users and login is needed to access data under moratorium.
library(jsonlite) # Set base url url <- "https://www.vliz.be/en/imis?module=dataset&dasid=5912" dasid <- fromJSON(paste0(url, "&show=json")) # Build citation. Get active DOI. citation <- dasid[["datasetrec"]][["Citation"]] citation <- paste0("> ", citation, " ", url, ". Accessed through the LifeWatch Data Explorer / lwdataexplorer R package.") # Get license license <- dasid[["datasetrec"]][["AccConstrDisplay"]]
cat(citation)
cat(paste0("<b>Availability:</b>", license))
Please acknowledge as: This work makes use of the LifeWatch observation data and infrastructure (provided by the ETN partners) funded by Research Foundation - Flanders (FWO) as part of the Belgian contribution to LifeWatch.
These data are also available in the R language with the lwdataxplorer package.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.