> Duncan Murdoch writes:
> The source to the noquote() function looks like this:
> noquote <- function(obj, right = FALSE) {
> ## constructor for a useful "minor" class
> if(!inherits(obj,"noquote"))
> class(obj) <- c(attr(obj, "class"),
> if(right)
The source to the noquote() function looks like this:
noquote <- function(obj, right = FALSE) {
## constructor for a useful "minor" class
if(!inherits(obj,"noquote"))
class(obj) <- c(attr(obj, "class"),
if(right) c(right = "noquote") else "noquote")
obj
