hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix plotMuso bug

Browse Source
This commit is contained in:
Roland Hollós 2020-10-12 10:09:07 +02:00
parent c377fdcc8f
commit 3b3fe7ea1c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
RBBGCMuso/R/plotMuso.R
View File

@ -115,7 +115,6 @@ plotMuso <- function(settings = NULL, variable = "all",
if(!inherits(musoData$date[1], "Date")){
musoData$date<- as.Date(as.character(musoData$date),"%d.%m.%Y")
}
if(!expandPlot){
if(plotType=="cts"){
if(length(variableName)==1){
@ -191,13 +190,16 @@ plotMuso <- function(settings = NULL, variable = "all",
}
variableName <- as.character(settings$outputVars[[1]])[variable]
if(variable == "all"){
variableName <- as.character(settings$outputVars[[1]])
}
if(is.character(variable)){
if(identical(variable,"all")){
variable <- as.character(settings$outputVars[[1]])
} else {
if(is.element(variable, settings$dailyVarCodes)){
@ -230,7 +232,7 @@ plotMuso <- function(settings = NULL, variable = "all",
print(numVari)
stop("Not all members of the variable parameter are among the output variables")
}}
pointOrLineOrPlot(musoData = musoData,
variableName = variableName,
plotType = plotType,