R Under development (unstable) (2025-02-18 r87748 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")))
            !             +             -       Complex           Den 
           10           169           169             9             1 
        Den<-          Imag        Imag<-         Math2          Math 
            1             2             2            10            10 
          Mid         Mid<-           Num         Num<-           Ops 
            1             1             1             1           169 
          Rad         Rad<-          Real        Real<-       Summary 
            1             1             2             2             9 
            [           [<-            [[          [[<-     all.equal 
            4            12             4            12             4 
anyDuplicated         anyNA       as.Date    as.POSIXct    as.POSIXlt 
            2            10             2             2             2 
     as.array    as.complex as.data.frame    as.integer    as.logical 
            2             2             2             2             2 
    as.matrix    as.numeric        as.raw     as.vector             c 
            2             2             2            10             2 
       coerce           cut    duplicated  findInterval        format 
          435             2             2             2            10 
   initialize     is.finite   is.infinite         is.na       is.na<- 
           23            10            10            10             2 
       is.nan   is.unsorted        length      length<-           log 
           10            10             2             2             5 
        match          mean         mtfrm         names       names<- 
            4            10             2             2            10 
        print      quantile       rep.int           rep       rep_len 
            2             2             2             2             2 
          seq      sequence          show       summary        unique 
            2             2            30             2             2 
        xtfrm 
            4 
> (namb <- lengths(lapply(l, slot, "target")))
            !             +             -       Complex           Den 
            0             0             0             0             0 
        Den<-          Imag        Imag<-         Math2          Math 
            0             0             0             0             0 
          Mid         Mid<-           Num         Num<-           Ops 
            0             0             0             0             0 
          Rad         Rad<-          Real        Real<-       Summary 
            0             0             0             0             0 
            [           [<-            [[          [[<-     all.equal 
            0             0             0             0             0 
anyDuplicated         anyNA       as.Date    as.POSIXct    as.POSIXlt 
            0             0             0             0             0 
     as.array    as.complex as.data.frame    as.integer    as.logical 
            0             0             0             0             0 
    as.matrix    as.numeric        as.raw     as.vector             c 
            0             0             0             0             0 
       coerce           cut    duplicated  findInterval        format 
            0             0             0             0             0 
   initialize     is.finite   is.infinite         is.na       is.na<- 
            0             0             0             0             0 
       is.nan   is.unsorted        length      length<-           log 
            0             0             0             0             0 
        match          mean         mtfrm         names       names<- 
            0             0             0             0             0 
        print      quantile       rep.int           rep       rep_len 
            0             0             0             0             0 
          seq      sequence          show       summary        unique 
            0             0             0             0             0 
        xtfrm 
            0 
> stopifnot(!any(namb))
> 
> proc.time()
   user  system elapsed 
   1.17    0.18    1.34