R/T_hss_export_tables.R

In RenRMT/hsstools: Simplify the HSS Data Process

#' Exports a list of data tables to CSV
#'
#' Exports a list of HSS tables created with `hss_write_tables()` to a CSV file in
#' the specified location. Note that this function uses sink() to write multiple
#' tables to the same file.
#'
#' @param df_list A named list containing the data tables. The output of hss_write_tables() usually.
#' @param path Where to store the .csv output.
#'
#' @return A CSV file stored at the provided location.
#'
#' @seealso hss_write_tables()
#' @export
#'
T_hss_export_tables <- function(df_list, questions, path) {
  # Select all non-NULL (successfully written) tables from list
  df_list <- df_list[-which(sapply(df_list, is.null))]

  sink(path)

  for (i in names(df_list)) {
    if (names(questions[match(i, questions)]) == "select_one") {

      cat(strrep(";", ncol(df_list[[i]])), "\n", sep = "")

      write.table(df_list[[i]]$table, sep = ";", dec = ",", row.names = FALSE)
      cat(df_list[[i]]$p)

      cat(strrep(";", ncol(df_list[[i]])), "\n", sep = "")

    } else if (names(questions[match(i, questions)]) == "select_multiple") {
    cat(strrep(";", ncol(df_list[[i]])), "\n", sep = "")

    write.table(df_list[[i]], sep = ";", dec = ",", row.names = FALSE)

    cat(strrep(";", ncol(df_list[[i]])), "\n", sep = "")
    }
  }

  sink()
}