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

Documentation, and fix the old numValues bug.

Browse Source
This commit is contained in:
Roland Hollós 2018-11-20 07:06:58 +01:00
parent 2c18bc9a2f
commit e343c40860
3 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
RBBGCMuso/R/musoExamples.R
View File

@ -3,10 +3,7 @@
#'With this function you can copy RBBGCMuso example library whereever you want #'With this function you can copy RBBGCMuso example library whereever you want
#' #'
#'@param example The name of the example file, if it is NULL tcl/tk menu will pop up to select. #'@param example The name of the example file, if it is NULL tcl/tk menu will pop up to select.
#'@return List of two matrices: A and B matrix for musoRandomizer #'@param destination The destination where the example files will be copied.
#'@import stats
#'@import magrittr
#'@import dplyr
#'@export #'@export
copyMusoExamleTo <- function(example = NULL, destination = NULL){ copyMusoExamleTo <- function(example = NULL, destination = NULL){
@ -17,7 +14,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
tcltk::tclRequire("BWidget") tcltk::tclRequire("BWidget")
tcltk::tktitle(choiceWin) <- "Choose an example!" tcltk::tktitle(choiceWin) <- "Choose an example!"
tcltk::tcl("wm","geometry",choiceWin,"200x50") tcltk::tcl("wm","geometry",choiceWin,"200x50")
tcl("wm", "attributes", choiceWin, topmost=TRUE) tcltk::tcl("wm", "attributes", choiceWin, topmost=TRUE)
choiceValues <- basename(list.dirs(system.file("examples","",package = "RBBGCMuso"),recursive = FALSE)) choiceValues <- basename(list.dirs(system.file("examples","",package = "RBBGCMuso"),recursive = FALSE))
choices <- tcltk::tkwidget(choiceWin,"ComboBox", choices <- tcltk::tkwidget(choiceWin,"ComboBox",
editable = FALSE, values = choiceValues, editable = FALSE, values = choiceValues,
@ -57,11 +54,3 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
file.copy(grep("bin", list.files(), value = TRUE, invert = TRUE),destination) file.copy(grep("bin", list.files(), value = TRUE, invert = TRUE),destination)
setwd(currDir) setwd(currDir)
} }
## choiceWin <- tcltk::tktoplevel()
## tclRequire("BWidget")
##
## choiceValues <- basename(list.dirs("~/Documents/projects",recursive = FALSE))
## choices <- tkwidget(choiceWin,"ComboBox", editable = FALSE, values = choiceValues, textvariable = tclVar(choiceValues[1]))
## tkpack(choices)
## filename<- tclvalue(tcl(choices,"get"))
## filename

2
RBBGCMuso/R/setupMuso.R
View File

@ -218,7 +218,7 @@ setupMuso <- function(executable=NULL,
numData<-rep(NA,3) numData<-rep(NA,3)
numYears <- as.numeric(unlist(strsplit(grep("simulation years",iniFiles[[2]],value=TRUE),"[\ \t]"))[1]) numYears <- as.numeric(unlist(strsplit(grep("simulation years",iniFiles[[2]],value=TRUE),"[\ \t]"))[1])
## numYears<-unlist(read.table(iniInput[2],skip = 14,nrows = 1)[1]) ## numYears<-unlist(read.table(iniInput[2],skip = 14,nrows = 1)[1])
numValues <- as.numeric(unlist(strsplit(grep("number of daily output variables",iniFiles[[2]],value=TRUE),"[\ \t]"))[1]) numValues <- as.numeric(unlist(strsplit(iniFiles[[2]][grep("DAILY_OUTPUT",iniFiles[[2]])+1],"[\ \t]"))[1])
## numValues will be replaced to numVar ## numValues will be replaced to numVar
## numValues<-unlist(read.table(iniInput[2],skip=102,nrows = 1)[1]) ## numValues<-unlist(read.table(iniInput[2],skip=102,nrows = 1)[1])
startYear <- as.numeric(unlist(strsplit(grep("first simulation year",iniFiles[[2]],value=TRUE),"[\ \t]"))[1]) startYear <- as.numeric(unlist(strsplit(grep("first simulation year",iniFiles[[2]],value=TRUE),"[\ \t]"))[1])

5
RBBGCMuso/man/copyMusoExamleTo.Rd
View File

@ -8,9 +8,8 @@ copyMusoExamleTo(example = NULL, destination = NULL)
} }
\arguments{ \arguments{
\item{example}{The name of the example file, if it is NULL tcl/tk menu will pop up to select.} \item{example}{The name of the example file, if it is NULL tcl/tk menu will pop up to select.}
}
\value{ \item{destination}{The destination where the example files will be copied.}
List of two matrices: A and B matrix for musoRandomizer
} }
\description{ \description{
With this function you can copy RBBGCMuso example library whereever you want With this function you can copy RBBGCMuso example library whereever you want