This is a fix for 'bquote' that may work. function (expr, where =3D parent.frame())=20 { unquote <- function(e) { if (length(e) <=3D 1 || !is.language(e))=20 e else if (e[[1]] =3D=3D as.name("."))=20 eval(e[[2]], where) else as.call(lapply(e, unquote)) } unquote(substitute(expr)) } =0A=0A=0A Get your preferred Email name!=0ANow you can @ymail.com and = @rocketmail.com. =0Ahttp://mail.promotions.yahoo.com/newdomains/aa/
______________________________________________ R-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-devel