[R-SIG-Mac] help with Tcl/Tk

[Ivan Calandra]

Hi Ray!

That was it!! I didn't know about this, but now it works perfectly; 
thanks a lot!

Ivan

--
Ivan CALANDRA
Université de Bourgogne
UMR CNRS/uB 6282 Biogéosciences
6 Boulevard Gabriel
21000 Dijon, FRANCE
+33(0)3.80.39.63.06
ivan.calandra at u-bourgogne.fr
http://biogeosciences.u-bourgogne.fr/calandra

Le 04/12/12 17:53, Ray DiGiacomo, Jr. a écrit :
> Bonjour Ivan,
>
> Did you have a chance to install the "tcltk-8.5.5-x11.dmg" file at:
>
> http://cran.r-project.org/bin/macosx/tools/
>
> Best Regards,
>
> Ray DiGiacomo, Jr.
> Healthcare Predictive Analytics Specialist
> Master R Trainer
> President, Lion Data Systems LLC
> President, The Orange County R User Group
> Board Member, TDWI
> rayd at liondatasystems.com <mailto:rayd at liondatasystems.com>
> (m) 408-425-7851
> San Juan Capistrano, California USA
> twitter.com/liondatasystems <http://twitter.com/liondatasystems>
> linkedin.com/in/raydigiacomojr <http://linkedin.com/in/raydigiacomojr>
> youtube.com/user/liondatasystems/videos 
> <http://youtube.com/user/liondatasystems/videos>
>
> Check out my one-on-one web-based R Training Courses at 
> liondatasystems.com/courses <http://liondatasystems.com/courses>
>
>
>
>
>
>
>
> On Tue, Dec 4, 2012 at 1:51 AM, Ivan Calandra 
> <ivan.calandra at u-bourgogne.fr <mailto:ivan.calandra at u-bourgogne.fr>> 
> wrote:
>
>     Dear users,
>
>     In trying to use tcltk, svDialogs and gsubfn I have encountered an
>     error that seems to stem from package Tcl/Tk.
>
>
>     I can load tcltk, everything looks fine, but if I try
>     ?tk_choose.dir or whatever, then R hangs and I have to force exit.
>
>     I have tried with svDialogs as well and here is what happens:
>
>     > sessionInfo()
>     R version 2.15.2 (2012-10-26)
>     Platform: i386-apple-darwin9.8.0/i386 (32-bit)
>     locale:
>     [1] fr_FR.UTF-8/fr_FR.UTF-8/fr_FR.UTF-8/C/fr_FR.UTF-8/fr_FR.UTF-8
>     attached base packages:
>     [1] stats     graphics  grDevices utils     datasets  methods   base
>
>     > library(svDialogs)
>     Le chargement a nécessité le package : svGUI
>     Le chargement a nécessité le package : svMisc
>     Le chargement a nécessité le package : tcltk
>     Chargement de Tcl/Tk...
>      *** caught bus error ***
>     address 0x1, cause 'non-existent physical address'
>
>     Traceback:
>      1: sys.parent()
>      2: sys.function(sys.parent())
>      3: formals(sys.function(sys.parent()))
>      4: match.arg(encoding)
>      5: match(match.arg(encoding), c("", "bytes", "UTF-8"))
>      6: textConnection("rval", "w", local = TRUE)
>      7: capture.output(print(args(dlgDir)))
>      8: paste(capture.output(print(args(dlgDir))), collapse = "")
>      9: gsub("\\s+", " ", paste(capture.output(print(args(dlgDir))),
>     collapse = ""))
>     10: doTryCatch(return(expr), name, parentenv, handler)
>     11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
>     12: tryCatchList(expr, classes, parentenv, handlers)
>     13: tryCatch(expr, error = function(e) {    call <-
>     conditionCall(e)    if (!is.null(call)) {        if
>     (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L)  
>          dcall <- deparse(call)[1L]        prefix <- paste("Error in",
>     dcall, ": ")        LONG <- 75L msg <- conditionMessage(e)      
>      sm <- strsplit(msg, "\n")[[1L]] w <- 14L + nchar(dcall, type =
>     "w") + nchar(sm[1L], type = "w")        if (is.na
>     <http://is.na>(w))             w <- 14L + nchar(dcall, type = "b")
>     + nchar(sm[1L], type = "b")        if (w > LONG)            
>     prefix <- paste0(prefix, "\n  ")    } else prefix <- "Error : "  
>      msg <- paste0(prefix, conditionMessage(e), "\n")
>     .Internal(seterrmessage(msg[1L]))    if (!silent &&
>     identical(getOption("show.error.messages"),     TRUE)) { cat(msg,
>     file = stderr()) .Internal(printDeferredWarnings())    }
>     invisible(structure(msg, class = "try-error", condition = e))})
>     14: try(gsub("\\s+", " ",
>     paste(capture.output(print(args(dlgDir))),     collapse = "")),
>     silent = TRUE)
>
>     Possible actions:
>     1: abort (with core dump, if enabled)
>     2: normal R exit
>     3: exit R without saving workspace
>     4: exit R saving workspace
>
>     > mydir <- dlgDir()
>
>     Everything from ***caught bus error*** appears only when I type
>     the last line (mydir <- dlgDir()).
>
>     I have the same problem with any function from gsubfn, i.e. any
>     function that uses tcltk...
>
>
>     Can anyone help me?
>
>     Ivan
>
>     -- 
>     Ivan CALANDRA
>     Université de Bourgogne
>     UMR CNRS/uB 6282 Biogéosciences
>     6 Boulevard Gabriel
>     21000 Dijon, FRANCE
>     +33(0)3.80.39.63.06 <tel:%2B33%280%293.80.39.63.06>
>     ivan.calandra at u-bourgogne.fr <mailto:ivan.calandra at u-bourgogne.fr>
>     http://biogeosciences.u-bourgogne.fr/calandra
>
>     _______________________________________________
>     R-SIG-Mac mailing list
>     R-SIG-Mac at r-project.org <mailto:R-SIG-Mac at r-project.org>
>     https://stat.ethz.ch/mailman/listinfo/r-sig-mac
>
>