From suharto_anggono at yahoo.com  Thu Nov  5 04:55:24 2009
From: suharto_anggono at yahoo.com (suharto_anggono at yahoo.com)
Date: Thu,  5 Nov 2009 04:55:24 +0100 (CET)
Subject: [Rd] A fix that for 'bquote' that may work  (PR#14031)
Message-ID: <20091105035524.BB272282EF59@mail.pubhealth.ku.dk>

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/



[Rd] A fix that for 'bquote' that may work (PR#14031)
suharto_anggono at yahoo.com