app/functions/save_and_export.R

In JesseRed/dataVis: What the Package Does (One Line, Title Case)

library(feather)

export_selected_tab_data <- function(data = NULL){
  if (!is.null(data)){
    string1 <-data$string1
    saveRDS(data$mat_p, file = file.path(g_act_data_dir(), "ExportData2D_mat_p.Rds"))
    saveRDS(data$mat_t, file = file.path(g_act_data_dir(), "ExportData2D_mat_t.Rds"))
    saveRDS(data$data1, file = file.path(g_act_data_dir(), "ExportData3D_data1_subj_reg1_reg2.Rds"))
    saveRDS(data$data2, file = file.path(g_act_data_dir(), "ExportData3D_data2_subj_reg1_reg2.Rds"))
    writeMat(file.path(g_act_data_dir(), "ExportData3D_data1_subj_reg1_reg2.mat"), Data1 = data$data1)
    writeMat(file.path(g_act_data_dir(), "ExportData3D_data2_subj_reg1_reg2.mat"), Data2 = data$data2)
    #write_feather(data$data1, file = file.path(g_act_data_dir(), "ExportData3D_data1_subj_reg1_reg2"))
    #write_feather(data$data2, file = file.path(g_act_data_dir(), "ExportData3D_data2_subj_reg1_reg2"))
    #writeMat(file.path(g_act_data_dir(), "ExportMoreData.mat"), Data = data)

    cat(file = stderr(), paste("data saved into folder",g_act_data_dir(),"\n"))
  }

}