Re: [R] as.numeric with tclvalue redux

From: Sundar Dorai-Raj <sundar.dorai-raj_at_pdf.com>
Date: Mon, 24 Mar 2008 11:05:23 -0700

Erin Hodgess said the following on 3/24/2008 10:39 AM:
> Hi again R People:
>
> This works fine:

>> library(tcltk)
>> a <- tclVar("4.5")
>> as.numeric(tclvalue(a))

> [1] 4.5
>> #But if you have:
>> b <- tclVar("pi")
>> as.numeric(tclvalue(b))

> [1] NA
> Warning message:
> NAs introduced by coercion
>
> Is anyone aware of a way around this, please?
>
> thanks,
> Erin
>
>

Does this help?

eval.tclvalue <- function(x, ...) {

   x <- type.convert(tclvalue(x), as.is = TRUE)    if(is.character(x) && exists(x, ...)) {      get(x)
   } else {
     x
   }
}

a <- tclVar("4.5")
b <- tclVar("pi")
c <- tclVar("abcd")

eval.tclvalue(a)

eval.tclvalue(b)
eval.tclvalue(c)

HTH, --sundar



R-help_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code. Received on Mon 24 Mar 2008 - 18:08:58 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Mon 24 Mar 2008 - 18:30:24 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive