R/EML2df.R

In atn38/MetaInbase: Convert corpus of Ecological Metadata Language (EML) documents to tabular form and consolidate re-used metadata elements.

#' Convert a corpus of EML documents into tables
#'
#' @details This is a simple wrapper around the get_ functions also exported from this package.
#'
#' @param corpus (list) List of EML documents, output from import_corpus
#'
#' @return (list) List of data.frames each corresponding to output from a get_ function
#' @export
#'
#' @examples
EML2df <- function(corpus) {
  # corp <- import_corpus(path)
  stopifnot(is.list(corpus), !is.null(names(corpus)))
  tbls <- list(
    datasets = try(get_dataset(corpus)),
    entities = try(get_entities(corpus)),
    attributes = try(get_attributes(corpus)),
    codes = try(get_attribute_codes(corpus)),
    parties = try(get_parties(corpus)),
    keywords = try(get_keywords(corpus)),
    changehistory = try(get_changehistory(corpus)),
    geocov = try(get_coverage_geo(corpus)),
    tempocov = try(get_coverage_tempo(corpus)),
    taxcov = try(get_coverage_tax(corpus)),
    projects = try(get_project(corpus)),
    annotations = try(get_annotations(corpus)),
    methods = try(get_methods(corpus))
  )
  return(tbls)
}