inst/doc/parsing-EML.R

In clnsmth/EML103: Read and Write Ecological Metadata Language Files

## ---- eval = FALSE-------------------------------------------------------
#  library("EML")
#  f <- system.file("xsd/test/eml-i18n.xml", package = "EML")
#  eml_view(f)
#  

## ------------------------------------------------------------------------
library("EML")
f <- system.file("xsd/test/eml-i18n.xml", package = "EML")
eml <- read_eml(f)

## ------------------------------------------------------------------------
coverage <- eml_get(eml, "coverage")
coverage

## ------------------------------------------------------------------------
eml_get(coverage, "temporalCoverage")

## ------------------------------------------------------------------------
hf001 <- system.file("examples/hf001.xml", package="EML") 

eml_HARV <- read_eml(hf001)

## ------------------------------------------------------------------------
dt <- eml_get(eml_HARV, "dataTable")
length(dt)

## ------------------------------------------------------------------------
entities <- sapply(dt, eml_get, "entityName")
urls <- sapply(dt, eml_get, "url")

## ------------------------------------------------------------------------
urls <- sapply(dt, function(x) x@physical[[1]]@distribution[[1]]@online@url)

## ------------------------------------------------------------------------
attrs <- eml_get(dt, "attributeList") 
length(attrs)
attrs[[1]]

## ------------------------------------------------------------------------
get_attributes(eml_HARV@dataset@dataTable[[1]]@attributeList)