From 5480cced7cd48bf5dacf7d79d6a131d9b81a1ee6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Tue, 20 Nov 2018 01:52:21 +0100 Subject: [PATCH] Some bugfix on example path --- RBBGCMuso/R/musoExamples.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/RBBGCMuso/R/musoExamples.R b/RBBGCMuso/R/musoExamples.R index 9801289..79f2106 100644 --- a/RBBGCMuso/R/musoExamples.R +++ b/RBBGCMuso/R/musoExamples.R @@ -21,7 +21,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ choices <- tcltk::tkwidget(choiceWin,"ComboBox", editable = FALSE, values = choiceValues, textvariable = tcltk::tclVar(choiceValues[1])) - tkpack(choices) + tcltk::tkpack(choices) choiceValue <- NA closeSelection <- tcltk::tkwidget(choiceWin,"button",text ="Select", command =function (){ choiceValue <<- tcltk::tclvalue(tcltk::tcl(choices,"get")) @@ -38,7 +38,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ if(is.null(example)){ - cExample<-paste0(system.file("examples","",package = "RBBGCMuso"),chooseExample()) + cExample<-paste0(system.file("examples","",package = "RBBGCMuso"),"/",chooseExample()) } if(is.null(destination)){ @@ -47,7 +47,6 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ currDir <- getwd() setwd(cExample) - print(getwd()) if(!WindowsP){ file.copy("./bin/muso", destination) } else {