From 10dc5739c93197d2003a7e8fd34a588890345aa7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Tue, 20 Nov 2018 01:56:55 +0100 Subject: [PATCH] missing destination --- RBBGCMuso/R/musoExamples.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RBBGCMuso/R/musoExamples.R b/RBBGCMuso/R/musoExamples.R index 79f2106..606ad72 100644 --- a/RBBGCMuso/R/musoExamples.R +++ b/RBBGCMuso/R/musoExamples.R @@ -25,7 +25,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ choiceValue <- NA closeSelection <- tcltk::tkwidget(choiceWin,"button",text ="Select", command =function (){ choiceValue <<- tcltk::tclvalue(tcltk::tcl(choices,"get")) - tkdestroy(choiceWin) + tcltk::tkdestroy(choiceWin) }) tcltk::tkpack(closeSelection) @@ -51,7 +51,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ file.copy("./bin/muso", destination) } else { 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) setwd(currDir)