R/stw_read_meta_yaml.R

In ijlyttle/steward: Helps you manage metadata for published datasets

#' Create metadata-object from YAML
#'
#' @param file location of yaml file
#'
#' @inherit stw_meta return
#' @export
#'
#' @examples
#' stw_read_meta_yaml(system.file("metadata/diamonds.yml", package = "steward"))
#'
#'
stw_read_meta_yaml <- function(file) {

  # read in the yaml file
  infile <- yaml::read_yaml(file)

  # move schema$fields to dict
  dict <- infile[["schema"]][["fields"]]

  infile$schema <- NULL

  # move constraints$enum to levels
  to_level <- function(x) {

    levels <- x[["constraints"]][["enum"]]
    x[["constraints"]] <- NULL
    x[["levels"]] <- levels

    x
  }

  dict <- purrr::map(dict, to_level)
  dict <- purrr::map_dfr(dict, function(x) {do.call(stw_dict, x)})

  infile$dict <- stw_dict(dict)

  # create using the `infile` envronment
  meta <- stw_meta(infile)

  # return
  meta
}