R/save_lines.R

In richelbilderbeek/beastier: Call 'BEAST2'

#' Save text (a container of strings) to a file
#' @param filename filename of the file to have the text written to
#' @param lines lines of text to be written to file
#' @return Nothing. Will save the lines to file
#' @author Richèl J.C. Bilderbeek
#' @examples
#' text <- c("hello", "world")
#' filename <- get_beastier_tempfilename()
#' save_lines(filename = filename, lines = text)
#' file.remove(filename)
#'
#' remove_beaustier_folders()
#' @export
save_lines <- function(filename, lines) {
  dir.create(dirname(filename), showWarnings = FALSE, recursive = TRUE)
  my_file <- file(filename)
  writeLines(lines, my_file)
  close(my_file)
}