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

6
RBBGCMuso/R/plotMuso.R
View File

@ -115,7 +115,6 @@ plotMuso <- function(settings = NULL, variable = "all",
if(!inherits(musoData$date[1], "Date")){ if(!inherits(musoData$date[1], "Date")){
musoData$date<- as.Date(as.character(musoData$date),"%d.%m.%Y") musoData$date<- as.Date(as.character(musoData$date),"%d.%m.%Y")
} }
if(!expandPlot){ if(!expandPlot){
if(plotType=="cts"){ if(plotType=="cts"){
if(length(variableName)==1){ if(length(variableName)==1){
@ -191,13 +190,16 @@ plotMuso <- function(settings = NULL, variable = "all",
} }
variableName <- as.character(settings$outputVars[[1]])[variable] variableName <- as.character(settings$outputVars[[1]])[variable]
if(variable == "all"){
variableName <- as.character(settings$outputVars[[1]])
}
if(is.character(variable)){ if(is.character(variable)){
if(identical(variable,"all")){ if(identical(variable,"all")){
variable <- as.character(settings$outputVars[[1]]) variable <- as.character(settings$outputVars[[1]])
} else { } else {
if(is.element(variable, settings$dailyVarCodes)){ if(is.element(variable, settings$dailyVarCodes)){