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.

Reply via email to