tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

write merged_df3 files from combining_dfs_plotting

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-11 09:51:53 +01:00
parent c124f49041
commit 078644c322
1 changed files with 35 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

62
scripts/plotting/combining_dfs_plotting.R
View file

@ -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
##==========================================================================