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

fix a small bug around dailyTable

Browse Source
This commit is contained in:
Hollos Roland 2020-02-13 11:00:09 +01:00
parent 1704cf524c
commit 65c3a60b4b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/getOutPutList.R
View File

@ -10,7 +10,7 @@ getDailyOutputList <- function(settings=NULL){
settings <- setupMuso() settings <- setupMuso()
} }
varTable <- getOption("RMuso_varTable")$'6' 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) toPrint <- cbind.data.frame(index=1:nrow(toPrint),toPrint)
print(toPrint, row.names=FALSE) print(toPrint, row.names=FALSE)
} }