PNG to PDF

Author: Luis Arge

HelperScripts/graph_annotations.R

@@ -228,15 +228,15 @@ Plot_INDEL_Only <- function(Mydf, X_labels, Cutoffs, X_limits, plot_type) {
 #----------
 # Build output filepath and save plots to file
 Save_SNP_Plots <- function(Directory, Prefix, Suffix, SNP_plot) {
-    outfile_snp_fp <- paste0(Directory, "/Plots/", Prefix, "_SNP_distributions", Suffix, ".png")
+    outfile_snp_fp <- paste0(Directory, "/Plots/", Prefix, "_SNP_distributions", Suffix, ".pdf")
     print(paste0("SNP graph filename path is ", outfile_snp_fp))
-    ggsave(outfile_snp_fp, plot = SNP_plot, device = "png")
+    ggsave(outfile_snp_fp, plot = SNP_plot, device = "pdf")
 }
 
 Save_Indel_Plots <- function(Directory, Prefix, Suffix, Indel_plot) {
-    outfile_indel_fp <- paste0(Directory, "/Plots/", Prefix, "_INDEL_distributions", Suffix, ".png")
+    outfile_indel_fp <- paste0(Directory, "/Plots/", Prefix, "_INDEL_distributions", Suffix, ".pdf")
     print(paste0("Indel graph filename  path is ", outfile_indel_fp))
-    ggsave(outfile_indel_fp, plot = Indel_plot, device = "png")
+    ggsave(outfile_indel_fp, plot = Indel_plot, device = "pdf")
 }
 
 #############################