R/save_data_wrangling.R

In epongpipat/ppi: Psychophysiological Interaction (PPI)

#' @title save_data_wrangling
#'
#' @param data_wrangling data wrangling output
#' @param out_dir output directory (default: NULL) if null, saves to current working directory
#' @param out_prefix output file prefix (default: NULL)
#' @param out_suffix output file suffix (default: NULL)
#'
#' @return
#' @export
#'
#' @examples
save_data_wrangling <- function(data_wrangling, out_dir = NULL, out_prefix = NULL, out_suffix = NULL) {
  if (is.null(out_dir)) {
    out_dir <- getwd()
  } else if (!dir.exists(out_dir)) {
    dir.create(out_dir, recursive = T)
  }
  out_path <- paste0(out_dir, out_prefix, "data_wrangling", out_suffix)
  saveRDS(data_wrangling, paste0(out_path, ".rds"))
  params_json <- jsonlite::toJSON(data_wrangling, pretty = T, dataframe = 'columns')
  write(params_json, paste0(out_path, ".json"))
}