R Under development (unstable) (2025-12-17 r89193 ucrt) -- "Unsuffered Consequences" Copyright (C) 2025 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library(methods) > p <- asNamespace("flint") > f <- getGenerics(p) > l <- sapply(f, testInheritedMethods, simplify = FALSE) Warning message: In rbind2(argl[[i]], r) : number of columns of result is not a multiple of vector length (arg 2) > (nsig <- lengths(lapply(l, slot, "allSelections"))) ! $ $<- %*% + 10 5 7 100 169 - Complex Den Den<- Imag 169 9 1 1 3 Imag<- Math2 Math Mid Mid<- 3 10 10 2 2 Num Num<- Ops Rad Rad<- 1 1 169 1 1 Real Real<- Summary [ [<- 3 3 9 8 24 [[ [[<- all.equal anyDuplicated anyNA 8 24 4 2 10 aperm as.Date as.POSIXct as.POSIXlt as.array 2 2 2 2 2 as.complex as.data.frame as.integer as.logical as.matrix 2 2 2 2 2 as.numeric as.raw as.vector asplit backsolve 2 2 10 2 100 c cbind2 chol2inv chol coerce 2 4 10 10 435 colMeans colSums crossprod cut det 10 10 100 2 10 determinant diag diag<- diff diffinv 10 2 2 10 10 dim dim<- dimnames dimnames<- drop 2 10 2 10 2 duplicated eigen findInterval format identical 2 2 2 10 4 is.array is.finite is.infinite is.matrix is.na 2 10 10 2 10 is.na<- is.nan is.unsorted isComplex isFloating 2 10 10 10 10 isSigned isSymmetric kronecker length length<- 10 2 4 2 2 log match mean mtfrm names 7 4 10 2 2 names<- norm outer print qr 10 2 4 2 2 quantile rbind2 rcond rep.int rep 2 4 2 2 2 rep_len rowMeans rowSums scale seq 2 10 10 2 2 sequence show solve summary svd 2 30 100 2 2 t tcrossprod unique xtfrm 2 100 2 4 > (namb <- lengths(lapply(l, slot, "target"))) ! $ $<- %*% + 0 0 0 0 0 - Complex Den Den<- Imag 0 0 0 0 0 Imag<- Math2 Math Mid Mid<- 0 0 0 0 0 Num Num<- Ops Rad Rad<- 0 0 0 0 0 Real Real<- Summary [ [<- 0 0 0 0 7 [[ [[<- all.equal anyDuplicated anyNA 0 7 0 0 0 aperm as.Date as.POSIXct as.POSIXlt as.array 0 0 0 0 0 as.complex as.data.frame as.integer as.logical as.matrix 0 0 0 0 0 as.numeric as.raw as.vector asplit backsolve 0 0 0 0 0 c cbind2 chol2inv chol coerce 0 0 0 0 0 colMeans colSums crossprod cut det 0 0 0 0 0 determinant diag diag<- diff diffinv 0 0 0 0 0 dim dim<- dimnames dimnames<- drop 0 0 0 0 0 duplicated eigen findInterval format identical 0 0 0 0 0 is.array is.finite is.infinite is.matrix is.na 0 0 0 0 0 is.na<- is.nan is.unsorted isComplex isFloating 0 0 0 0 0 isSigned isSymmetric kronecker length length<- 0 0 0 0 0 log match mean mtfrm names 0 0 0 0 0 names<- norm outer print qr 0 0 0 0 0 quantile rbind2 rcond rep.int rep 0 0 0 0 0 rep_len rowMeans rowSums scale seq 0 0 0 0 0 sequence show solve summary svd 0 0 0 0 0 t tcrossprod unique xtfrm 0 0 0 0 > ## Tolerate methods for '[<-', '[[<-' with signature x="data.frame" > ## defined in package 'methods' > `%notin%` <- function (x, table) match(x, table, nomatch = 0L) == 0L > namb.. <- namb[names(namb) %notin% c("[<-", "[[<-")] > stopifnot(all(namb.. == 0L), + all(startsWith(l[[ "[<-"]]@target, "data.frame#")), + all(startsWith(l[["[[<-"]]@target, "data.frame#"))) > > ## FIXME: Bug? > ## 'testInheritedMethods' did not catch the following dispatch ambiguity > ## in flint version 0.1.0: > ## norm,flint,ANY > ## norm,ANY,missing > ## perhaps because 'norm' has an implicit generic function definition > > proc.time() user system elapsed 1.85 0.17 1.98