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

print daily outputs

Browse Source
This commit is contained in:
Hollos Roland
2020-02-12 20:08:55 +01:00
parent 9a1bc5442e
commit 1704cf524c
2 changed files with 7443 additions and 2813 deletions
Download Patch File Download Diff File Expand all files Collapse all files
RBBGCMuso/R/getOutPutList.R
+9 -3
View File
@@ -7,9 +7,12 @@
getDailyOutputList <- function(settings=NULL){ getDailyOutputList <- function(settings=NULL){
if(is.null(settings)){ if(is.null(settings)){
settings<- setupMuso() settings <- setupMuso()
} }
print(settings$dailyOutputTable, row.names=FALSE) varTable <- getOption("RMuso_varTable")$'6'
toPrint <- varTable[which(varTable$codes %in% as.numeric(settings$dailyVarCodes)),]
toPrint <- cbind.data.frame(index=1:nrow(toPrint),toPrint)
print(toPrint, row.names=FALSE)
} }
#' getAnnualOutputList #' getAnnualOutputList
@@ -23,5 +26,8 @@ getAnnualOutputList <- function(settings=NULL){
if(is.null(settings)){ if(is.null(settings)){
settings<- setupMuso() settings<- setupMuso()
} }
print(settings$annualOutputTable, row.names=FALSE) varTable <- getOption("RMuso_varTable")$'6'
toPrint <- varTable[which(varTable$codes %in% as.numeric(settings$annualVarCodes)),]
toPrint <- cbind.data.frame(index=1:nrow(toPrint),toPrint)
print(toPrint, row.names=FALSE)
} }
RBBGCMuso/inst/data/varTable6.json
+7434 -2810
View File
File diff suppressed because it is too large Load Diff