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

Some bugfix on example path

Browse Source
This commit is contained in:
Roland Hollós 2018-11-20 01:52:21 +01:00
parent 2951c13b04
commit 5480cced7c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
RBBGCMuso/R/musoExamples.R
View File

@ -21,7 +21,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
choices <- tcltk::tkwidget(choiceWin,"ComboBox", choices <- tcltk::tkwidget(choiceWin,"ComboBox",
editable = FALSE, values = choiceValues, editable = FALSE, values = choiceValues,
textvariable = tcltk::tclVar(choiceValues[1])) textvariable = tcltk::tclVar(choiceValues[1]))
tkpack(choices) tcltk::tkpack(choices)
choiceValue <- NA choiceValue <- NA
closeSelection <- tcltk::tkwidget(choiceWin,"button",text ="Select", command =function (){ closeSelection <- tcltk::tkwidget(choiceWin,"button",text ="Select", command =function (){
choiceValue <<- tcltk::tclvalue(tcltk::tcl(choices,"get")) choiceValue <<- tcltk::tclvalue(tcltk::tcl(choices,"get"))
@ -38,7 +38,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
if(is.null(example)){ if(is.null(example)){
cExample<-paste0(system.file("examples","",package = "RBBGCMuso"),chooseExample()) cExample<-paste0(system.file("examples","",package = "RBBGCMuso"),"/",chooseExample())
} }
if(is.null(destination)){ if(is.null(destination)){
@ -47,7 +47,6 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
currDir <- getwd() currDir <- getwd()
setwd(cExample) setwd(cExample)
print(getwd())
if(!WindowsP){ if(!WindowsP){
file.copy("./bin/muso", destination) file.copy("./bin/muso", destination)
} else { } else {