...and this also does not work:
bench <- function(str,...) {
func <- function(x) {
x+10
}
expr <- list(...)[1]
str <- gsub("XXX",expr,str)
x <- as.expression(gsub("\"","",str))
eval(x)
}
bench("func(XXX)", "1")
Comments are appreciable.
On Thu, Sep 1, 2011 at 12:12 AM, . . <xkzi...@gmail.com> wrote:
> Whats wrong here?
>
> I was expecting 11 as the result...
>
> Thanks in advance.
>
> bench <- function(str,...) {
> func <- function(x) x+10
> expr <- list(...)[1]
> str <- gsub("XXX",expr,str)
> x <- as.call(gsub("\"","",str))
> eval(x)
> }
> bench("func(XXX)", "1")
>
______________________________________________
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.
