knitr::opts_chunk$set( collapse = TRUE, comment = "#>", warning = FALSE, message = FALSE )
Data collected by the MIDAS underway continuous sampling system on the RV Zeeleeuw and RV Simon Stevin:
# Get the abstract and/or description from IMIS and print here library(jsonlite) dasid <- fromJSON("https://www.vliz.be/en/imis?module=dataset&dasid=57&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>", description) } cat(out)
library(jsonlite) # Set base url 5251 4688 url <- "https://www.vliz.be/en/imis?module=dataset&dasid=57" dasid <- fromJSON(paste0(url, "&show=json")) # Build citation. Get active DOI. doi <- dasid[["dois"]] doi <- subset(doi, doi$CurrentDOI == 1)$DOI doi <- paste0("https://doi.org/", doi) citation <- dasid[["datasetrec"]][["Citation"]] citation <- paste0("> ", citation, " ", doi, ". Accessed through the LifeWatch Data Explorer / lwdataexplorer R package." ) # Get license license <- dasid[["datasetrec"]][["AccessConstraint"]] extra <- dasid[["datasetrec"]][["AccConstrDescription"]]
cat(citation)
cat(paste0("<b>Availability: </b>", license)) cat(paste0("</br><small>", extra ,"</small></br>"))
Please acknowledge as: This work makes use of the LifeWatch observation data and infrastructure (provided by VLIZ) 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.