From 2b66f9e1a7cf477ef8e0f7c06d9d9f7fe9774353 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roland=20Holl=C3=B3s?= Date: Tue, 15 Jan 2019 20:59:53 +0100 Subject: [PATCH] missing tcltk:: --- RBBGCMuso/R/musoExample.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/RBBGCMuso/R/musoExample.R b/RBBGCMuso/R/musoExample.R index 6945ad3..3712cb3 100644 --- a/RBBGCMuso/R/musoExample.R +++ b/RBBGCMuso/R/musoExample.R @@ -10,7 +10,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ WindowsP <- Sys.info()[1] == "Windows" chooseExample <- function(){ - tcltk::choiceWin <- tcltk::tktoplevel() + choiceWin <- tcltk::tktoplevel() tcltk::tclRequire("BWidget") tcltk::tktitle(choiceWin) <- "Choose an example!" tcltk::tcl("wm","geometry",choiceWin,"200x50") @@ -22,7 +22,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ tcltk::tkpack(choices) choiceValue <- NA closeSelection <- tcltk::tkwidget(choiceWin,"button",text ="Select", command =function (){ - choiceValue <<- tcltk::tclvalue(tcl(choices,"get")) + choiceValue <<- tcltk::tclvalue(tcltk::tcl(choices,"get")) tcltk::tkdestroy(choiceWin) }) @@ -40,7 +40,7 @@ copyMusoExamleTo <- function(example = NULL, destination = NULL){ } if(is.null(destination)){ - destination<-tk_choose.dir(getwd(), "Choose folder to copy the examples!") + destination<-tcltk::tk_choose.dir(getwd(), "Choose folder to copy the examples!") } currDir <- getwd()