write merged_df3 files from combining_dfs_plotting

scripts/plotting/combining_dfs_plotting.R

@@ -293,34 +293,7 @@ all.equal(foo, bar)
 #summary(comparedf(foo, bar))
 
 #==============================================================
-#################
-# OPTIONAL: write ALL 4 output files 
-#################
-#outvars = c("merged_df2"
-#             , "merged_df3"
-#             , "merged_df2_comp"
-#             , "merged_df3_comp")
 
-#cat("Writing output files: "
-#    , "\nPath:", outdir)
-
-#for (i in outvars){
-#  out_filename = paste0(i, ".csv")
-#  outfile = paste0(outdir, "/", out_filename)
-#  cat("Writing output file:"
-#      ,"\nFilename: ", out_filename,"\n")
-#  write.csv(get(i), outfile, row.names = FALSE)
-#  cat("Finished writing: ", outfile
-#      , "\nNo. of rows: ", nrow(get(i))
-#      , "\nNo. of cols: ", ncol(get(i)), "\n")
-#}
-
-#*************************
-# clear variables
-rm(foo, bar, gene_metadata
-   , in_filename_params, infile_params, merging_cols
-   , in_filename_gene_metadata, infile_gene_metadata)
-#*************************
 #####################################################################
 #                       Combining: LIG
 #####################################################################
@@ -344,6 +317,41 @@ if (nrow(merged_df3_lig) == nrow(my_df_u_lig)){
              , "\nGot:", nrow(merged_df3_lig)))
 }
 
+
+#==============================================================
+
+#################
+# OPTIONAL: write output files in one go
+#################
+#outvars = c(#"merged_df2",
+            #"merged_df2_comp",
+            #"merged_df2_lig",
+            #"merged_df2_comp_lig",
+            
+            #"meregd_df3_comp"
+            #"merged_df3_comp_lig",
+            #"merged_df3",
+            #"merged_df3_lig")
+
+#cat("Writing output files: "
+    #, "\nPath:", outdir)
+
+#for (i in outvars){
+  #out_filename = paste0(i, ".csv")
+  #outfile = paste0(outdir, "/", out_filename)
+  #cat("Writing output file:"
+  #    ,"\nFilename: ", out_filename,"\n")
+  #write.csv(get(i), outfile, row.names = FALSE)
+  #cat("Finished writing: ", outfile
+  #    , "\nNo. of rows: ", nrow(get(i))
+  #    , "\nNo. of cols: ", ncol(get(i)), "\n")
+#}
+
+# clear variables
+rm(foo, bar, gene_metadata
+   , in_filename_params, infile_params, merging_cols
+   , in_filename_gene_metadata, infile_gene_metadata)
+
 #==========================================================================
 # end of script
 ##==========================================================================