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

missing destination

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

4
RBBGCMuso/R/musoExamples.R
View File

@ -25,7 +25,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
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"))
tkdestroy(choiceWin) tcltk::tkdestroy(choiceWin)
}) })
tcltk::tkpack(closeSelection) tcltk::tkpack(closeSelection)
@ -51,7 +51,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){
file.copy("./bin/muso", destination) file.copy("./bin/muso", destination)
} else { } else {
file.copy("./bin/muso.exe", destination) file.copy("./bin/muso.exe", destination)
file.copy("./bin/cygwin.dll") file.copy("./bin/cygwin.dll", destination)
} }
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)