Displaying 2 results from an estimated 2 matches for "isumebrac".
Did you mean:
isumebrace
2004 Oct 28
1
Internal function isUME() in findGeneric() is wrong (PR#7320)
...The function findGeneric() in the utils namespace contains this internal
function:
isUME <- function(e) {
if (is.call(e) && (is.name(e[[1]]) || is.character(e[[1]]))) {
switch(as.character(e[[1]]), UseMethod = as.character(e[[2]]),
"{" = isUMEbrace(e), "if" = isUMEif(e), "")
}
else ""
}
This fails if the generic called UseMethod() without an argument, which is
perfectly legal. Changing it to this seems to work:
isUME <- function(e) {
if(is.call(e) &&(is.name(e[[1]]) || is....
2004 Oct 29
0
(PR#7320) Internal function isUME() in findGeneric() is
...ontains this internal
> >> function:
> >>
> >> isUME <- function(e) {
> >> if (is.call(e) && (is.name(e[[1]]) || is.character(e[[1]]))) {
> >> switch(as.character(e[[1]]), UseMethod = as.character(e[[2]]),
> >> "{" = isUMEbrace(e), "if" = isUMEif(e), "")
> >> }
> >> else ""
> >> }
> >>
> >> This fails if the generic called UseMethod() without an argument, which is
> >> perfectly legal. Changing it to this seems to work:
> >...