fix the ggsave bug

This commit is contained in:
Roland Hollós 2018-09-14 15:22:41 +02:00
parent 4128e75142
commit d52f358802

View File

@ -126,9 +126,9 @@ plotMusoWithData <- function(csvFile, variable, NACHAR=NA, settings=NULL, sep=",
labs(y = paste0(variable,"_measured"))+ labs(y = paste0(variable,"_measured"))+
theme(axis.title.x = element_blank()) theme(axis.title.x = element_blank())
if(!is.null(savePlot)){ if(!is.null(savePlot)){
ggsave(savePlot,p)
return(p) return(p)
} else { } else {
ggsave(savePlot,p)
return(p) return(p)
} }