fix a small bug around dailyTable

2020-02-13 11:00:09 +01:00 · 2020-02-13 11:00:09 +01:00 · 65c3a60b4b
commit 65c3a60b4b
parent 1704cf524c
1 changed files with 1 additions and 1 deletions
--- a/RBBGCMuso/R/getOutPutList.R
+++ b/RBBGCMuso/R/getOutPutList.R
@ -10,7 +10,7 @@ getDailyOutputList <- function(settings=NULL){
        settings <- setupMuso()
    }
    varTable <- getOption("RMuso_varTable")$'6'
-    toPrint <- varTable[which(varTable$codes %in% as.numeric(settings$dailyVarCodes)),]
+    toPrint <- varTable[match(as.numeric(settings$dailyVarCodes),varTable[,1]),]
    toPrint <- cbind.data.frame(index=1:nrow(toPrint),toPrint)
    print(toPrint, row.names=FALSE)
 }