R/io.R

In fennerm/fen.R.util: Fenner's personal R libraries

#' Convert a list to a space separated string
#' @param lst A list
#' @return A string
#' @export
list_to_string <- function(lst) {
  paste(unlist(lst), collapse = " ")
}

#' Read a text file as a single string
#' @param filename File path
#' @return Character
#' @export
read_text <- function(filename) {
  readChar(filename, file.info(filename)$size)
}

#' Read a table with sensible defaults
#' @param f File path
#' @return Data.frame
#' @export
read_table <- function(...) {
  read.table(..., stringsAsFactors = FALSE, row.names = NULL)
}

#' Write table or plot to file
save_results <- function(filename, dat) {
  if (file_ext(filename) == ".csv") {
    write_table(dat, filename)
  } else if (file_ext(filename) == ".jpg") {
    ggsave(filename, plot = dat)
  }
}

#' Write a table with sensible defaults
#' @export
write_table <- function(...) {
  write.table(..., row.names = FALSE, quote = FALSE)
}


#' Write a table to file with added header using write.table
#' @param x The table
#' @param file File path to write to
#' @param header The header
#' @export
write_table_with_header <- function(x, file, header, ...) {
  cat(header, "\n", file = file)
  write.table(x, file, append = T, ...)
}