R/to-csv-text.R

to_csv_text <- function(xdf, ...) {

  r <- rawConnection(raw(0), "r+")
  on.exit(close(r), add=TRUE)

  readr::write_csv(
    x = xdf,
    path = r,
    ...
  ) -> res

  invisible(rawConnectionValue(r))

}
hrbrmstr/ethercalc documentation built on June 16, 2019, 4:18 a.m.