From 65c3a60b4be97a9a5d6374249c1a0584695de478 Mon Sep 17 00:00:00 2001
From: Hollos Roland <hollorol@gmail.com>
Date: Thu, 13 Feb 2020 11:00:09 +0100
Subject: [PATCH] fix a small bug around dailyTable

---
 RBBGCMuso/R/getOutPutList.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RBBGCMuso/R/getOutPutList.R b/RBBGCMuso/R/getOutPutList.R
index d723c58..e788027 100644
--- 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)
 }