[Rd] A fix that for 'bquote' that may work (PR#14031)

From: <suharto_anggono_at_yahoo.com>
Date: Thu, 05 Nov 2009 04:55:24 +0100 (CET)


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_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Thu 05 Nov 2009 - 19:58:14 GMT

This archive was generated by hypermail 2.2.0 : Sat 07 Nov 2009 - 10:30:21 GMT