fix the cumyield hardcode bug

RBBGCMuso/R/plotMuso.R

@@ -89,6 +89,16 @@ plotMuso <- function(settings=NULL,
         musoData <-musoData %>%
             mutate(date=as.Date(as.character(date),"%d.%m.%Y"))
     } else {
+        if(!is.element("cum_yieldC_HRV",unlist(settings$outputVars[[1]]))){
+            musoData <- calibMuso(settings,silent = TRUE,skipSpinup=skipSpinup) %>%
+                as.data.frame() %>%
+                tibble::rownames_to_column("date") %>%
+                mutate(date2=date,date=as.Date(date,"%d.%m.%Y")) %>%
+                tidyr::separate(date2,c("day","month","year"),sep="\\.")
+            if(timeFrame!="day"){
+                musoData <- tryCatch(groupByTimeFrame(data=musoData, timeFrame = timeFrame, groupFun = groupFun),
+                                     error=function(e){stop("The timeframe or the gropFun is not found")})
+            }} else {
                  musoData <- calibMuso(settings,silent = TRUE,skipSpinup=skipSpinup) %>%
                      as.data.frame() %>%
                      tibble::rownames_to_column("date") %>%
@@ -99,6 +109,8 @@ plotMuso <- function(settings=NULL,
                      musoData <- tryCatch(groupByTimeFrame(data=musoData, timeFrame = timeFrame, groupFun = groupFun),
                                           error=function(e){stop("The timeframe or the gropFun is not found")})
                  }
+                 
+             }
     }
 
     ## numVari <- ncol(musoData)
@@ -211,7 +223,7 @@ plotMuso <- function(settings=NULL,
                       plotType = plotType,
                       expandPlot = layerPlot,
                       plotName = plotName)
-     }
+}
 
 #'plot the BBGCMuso output with data 
 #'