The R Project SVN R

Rev

Rev 72143 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 72143 Rev 72712
Line 58... Line 58...
58 
        # quote(z[c(-1, 1)])) <=== this would be nice, but not possible at the moment
 58 
        # quote(z[c(-1, 1)])) <=== this would be nice, but not possible at the moment
59 
        quote(`*tmp*`[c(-1, 1)]))
 59 
        quote(`*tmp*`[c(-1, 1)]))
60 
    w(names(u$inner)[2:4] <- v[1:2] <- c("X", "Y", "Z", "U")[1:2])
 60 
    w(names(u$inner)[2:4] <- v[1:2] <- c("X", "Y", "Z", "U")[1:2])
61 
        # quote(`[<-`(names(u$inner), 2:4, value = v[1:2] <- c("X", "Y", "Z", "U")[1:2]))
 61 
        # quote(`[<-`(names(u$inner), 2:4, value = v[1:2] <- c("X", "Y", "Z", "U")[1:2]))
62 
 
 62 
 
- 
 
 63 
    ##_ Not anymore, as stopifnot() massages its error/warning message:
63 
    e(stopifnot(is.numeric(dummy)))
 64 
    ##_ e(stopifnot(is.numeric(dummy)))
64 
}
 65 
}
65 
 
 66 
 
66 
old=options()
 67 
old=options()
67 
 
 68 
 
68 
oldoptimize <- getCompilerOption("optimize")
 69 
oldoptimize <- getCompilerOption("optimize")