The R Project SVN R

Rev

Rev 82990 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 82990 Rev 84765
Line 4... Line 4...
4 
  on.exit(Sys.setlocale("LC_COLLATE", old))
 4 
  on.exit(Sys.setlocale("LC_COLLATE", old))
5 
          Sys.setlocale("LC_COLLATE", "C")
 5 
          Sys.setlocale("LC_COLLATE", "C")
6 
  stopifnot(identical(base:::.S3_methods_table, # >>> end of ../../base/R/zzz.R ; update *there* !
 6 
  stopifnot(identical(base:::.S3_methods_table, # >>> end of ../../base/R/zzz.R ; update *there* !
7 
                      tools:::.make_S3_methods_table_for_base()))
 7 
                      tools:::.make_S3_methods_table_for_base()))
8 
})()
 8 
})()
- 
 
 9 
 
- 
 
 10 
 
- 
 
 11 
## check that all .internalGenerics  have .Internal :
- 
 
 12 
(iGens <- .internalGenerics)
- 
 
 13 
names(iGens) <- iGens
- 
 
 14 
str(bdI <- lapply(iGens, body))
- 
 
 15 
stopifnot(lengths(bdI) >= 2L)
- 
 
 16 
 
- 
 
 17 
is.qI  <- function(.) identical(., quote(.Internal))
- 
 
 18 
has.qI <- function(E) is.qI(E) || is.qI(E[[1L]])
- 
 
 19 
str(l1 <- lapply(bdI, \(bd) if(bd[[1]] == quote(`{`)) bd[[length(bd)]] else bd[[1]]))
- 
 
 20 
(r <- vapply(l1, \(b) has.qI(b) || has.qI(b[[length(b)]]), NA))
- 
 
 21 
stopifnot(r)