Limit SMP and 96prof plot size downloading

server.R

@@ -420,8 +420,8 @@ shinyServer(function(input, output,session){
 
          plot_smp + geom_bar(stat="identity",fill="orangered2") + theme_minimal() + geom_text(aes(label=smp), size=5, position = position_stack(vjust = 0.5), colour="white") + coord_flip() + labs(x = "", y = "Somatic mutation prevalence (number of mutations per megabase)") + theme(axis.text=element_text(size=12), axis.title = element_text(size = 13, face = "bold"), panel.grid.major.y=element_blank(), panel.grid.minor.y=element_blank(), panel.grid.major.x=element_blank(), panel.grid.minor.x=element_blank())       
 
-         ggsave(ff,height=2*ncol(mutation_counts_new),width=10,dpi=ppi)
-         
+         ggsave(ff,height=min(2*nrow(mutation_counts_new),40),width=25,dpi=ppi,units="cm")
+
       }
    )
 
@@ -473,7 +473,7 @@ shinyServer(function(input, output,session){
 
          plot_96_profile(aux_96_profile,ymax = max_ymax) + scale_y_continuous(breaks = seq(0, max_ymax, 0.05))
 
-         ggsave(ff,height=2*ncol(aux_96_profile),width=10,dpi=ppi)
+         ggsave(ff,height=min(4*ncol(aux_96_profile),40),width=25,dpi=ppi,units="cm")
       }
    )