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@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.
