An alternative could be:
do.call(mean, as.list(parse(text = unlist(strsplit(script, ", ")
On Fri, Oct 16, 2009 at 3:39 PM, Javier PB
wrote:
>
> Dear users,
>
> I got really stuck trying to apply a function to a piece of code that I
> created using different string functions.
>
> To make thi
Javier PB wrote:
>
> I got really stuck trying to apply a function to a piece of code
> that I created using different string functions.
>
> To make things really easy, this is a wee example:
>
> x<-c(1:10)
> script<-"x, trim = 0, na.rm = FALSE"##script created by a
> number of paste()
Based solely on what you told us, this can be done using eval(parse(text=...))
cmd <- sprintf("mean(%s)", script)
eval(parse(text = cmd))
However, with more context, there may be a better solution. See, for example,
install.packages("fortunes")
library(fortunes)
fortune("parse()")
HTH,
--sunda
Dear users,
I got really stuck trying to apply a function to a piece of code that I
created using different string functions.
To make things really easy, this is a wee example:
x<-c(1:10)
script<-"x, trim = 0, na.rm = FALSE"##script created by a number of
paste() and rep() steps
mean(
4 matches
Mail list logo