R/write_yaml.R

Defines functions `write_yaml`

`write_yaml` <-
function(x, file, fileEncoding = "UTF-8", ...) {
  result <- as.yaml(x, ...)

  if (is.character(file)) {
    file <-
      if (nzchar(fileEncoding)) {
        file(file, "w", encoding = fileEncoding)
      } else {
        file(file, "w")
      }
    on.exit(close(file))
  }
  else if (!isOpen(file, "w")) {
    open(file, "w")
    on.exit(close(file))
  }
  if (!inherits(file, "connection")) {
    stop("'file' must be a character string or connection")
  }

  cat(result, file=file, sep="")
}

Try the yaml package in your browser

Any scripts or data that you put into this service are public.

yaml documentation built on Sept. 11, 2024, 7:23 p.m.