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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
RBBGCMuso/R/getOutPutList.R
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)
} }

10244
RBBGCMuso/inst/data/varTable6.json
View File

File diff suppressed because it is too large Load Diff