R Under development (unstable) (2025-09-19 r88859 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             2 
       Imag<-         Math2          Math           Mid         Mid<- 
            2            10            10             2             2 
          Num         Num<-           Ops           Rad         Rad<- 
            1             1           169             1             1 
         Real        Real<-       Summary             [           [<- 
            2             2             9             8            24 
           [[          [[<-     all.equal anyDuplicated         anyNA 
            8            24             4             2            10 
      as.Date    as.POSIXct    as.POSIXlt      as.array    as.complex 
            2             2             2             2             2 
as.data.frame    as.integer    as.logical     as.matrix    as.numeric 
            2             2             2             2             2 
       as.raw     as.vector     backsolve             c        cbind2 
            2            10           100             2             4 
     chol2inv          chol        coerce      colMeans       colSums 
           10            10           435            10            10 
    crossprod           cut           det   determinant          diag 
          100             2            10            10             2 
       diag<-           dim         dim<-      dimnames    dimnames<- 
            2             2            10             2            10 
         drop    duplicated  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   isSymmetric        length 
            2            10            10             2             2 
     length<-           log         match          mean         mtfrm 
            2             5             4            10             2 
        names       names<-          norm         print      quantile 
            2            10             2             2             2 
       rbind2       rep.int           rep       rep_len      rowMeans 
            4             2             2             2            10 
      rowSums           seq      sequence          show         solve 
           10             2             2            30           100 
      summary             t    tcrossprod        unique         xtfrm 
            2             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 
      as.Date    as.POSIXct    as.POSIXlt      as.array    as.complex 
            0             0             0             0             0 
as.data.frame    as.integer    as.logical     as.matrix    as.numeric 
            0             0             0             0             0 
       as.raw     as.vector     backsolve             c        cbind2 
            0             0             0             0             0 
     chol2inv          chol        coerce      colMeans       colSums 
            0             0             0             0             0 
    crossprod           cut           det   determinant          diag 
            0             0             0             0             0 
       diag<-           dim         dim<-      dimnames    dimnames<- 
            0             0             0             0             0 
         drop    duplicated  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   isSymmetric        length 
            0             0             0             0             0 
     length<-           log         match          mean         mtfrm 
            0             0             0             0             0 
        names       names<-          norm         print      quantile 
            0             0             0             0             0 
       rbind2       rep.int           rep       rep_len      rowMeans 
            0             0             0             0             0 
      rowSums           seq      sequence          show         solve 
            0             0             0             0             0 
      summary             t    tcrossprod        unique         xtfrm 
            0             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#")))
> 
> proc.time()
   user  system elapsed 
   1.06    0.12    1.14