fix the ggsave bug
This commit is contained in:
parent
4128e75142
commit
d52f358802
@ -126,10 +126,10 @@ 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)){
|
||||||
return(p)
|
|
||||||
} else {
|
|
||||||
ggsave(savePlot,p)
|
ggsave(savePlot,p)
|
||||||
return(p)
|
return(p)
|
||||||
|
} else {
|
||||||
|
return(p)
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user