Ntip for treedatalist

Author: GuangchuangYu

DESCRIPTION

@@ -34,5 +34,5 @@ License: Artistic-2.0
 URL: https://www.amazon.com/Integration-Manipulation-Visualization-Phylogenetic-Computational-ebook/dp/B0B5NLZR1Z/
 BugReports: https://github.com/YuLab-SMU/tidytree/issues
 Encoding: UTF-8
-RoxygenNote: 7.3.0
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)

NAMESPACE

@@ -15,6 +15,7 @@ S3method(Nnode,tbl_tree)
 S3method(Nnode,treedata)
 S3method(Ntip,tbl_tree)
 S3method(Ntip,treedata)
+S3method(Ntip,treedataList)
 S3method(ancestor,phylo)
 S3method(ancestor,tbl_tree)
 S3method(ancestor,treedata)

NEWS.md

@@ -1,3 +1,7 @@
+# tidytree 0.4.6.001
+
++ `Ntip()` method for 'treedataList' object (2024-04-08, Mon)
+
 # tidytree 0.4.6
 
 + import `methods::setClassUnion()` to fix R check (2023-12-12, Tue)

R/ape.R

@@ -42,6 +42,13 @@ Ntip.treedata <- function(phy) {
     Ntip(as.phylo(phy))
 }
 
+##' @method Ntip treedataList
+##' @importFrom ape Ntip
+##' @export
+Ntip.treedataList <- function(phy) {
+    Ntip(phy[[1]])
+}
+
 ##' number of nodes
 ##'
 ##'