minor change in the initial testing function

flaviomoc · flaviomoc · commit fa9d22ef7582 · 2023-10-10T16:56:29.000-06:00
diff --git a/R/inputs_chk.R b/R/inputs_chk.R
@@ -70,7 +70,7 @@ inputs_chk <- function(bin1, bin2, tree) {
         }
       } else if (inherits(tree, "phylo")) {
         # Check if species names in 'bin1' and 'tree' match
-        if (!identical(sort(names(bin1)), sort(tree[[4]]))) {
+        if (!identical(sort(names(bin1)), sort(tree$tip.label))) {
           stop("Species names in 'bin1' and 'tree' must match.")
         }
       }
@@ -86,7 +86,7 @@ inputs_chk <- function(bin1, bin2, tree) {
       # Check if species names in 'bin1', 'bin2', and 'tree' match
       if (inherits(tree, "phylo")) {
         if (!identical(sort(names(bin1)), sort(names(bin2))) ||
-            !identical(sort(tree[[4]]), sort(names(bin1)))) {
+            !identical(sort(tree$tip.label), sort(names(bin1)))) {
           stop("Species names in 'bin1', 'bin2', and 'tree' must
                match.")
         }

Original file line number	Diff line number	Diff line change
`@@ -70,7 +70,7 @@ inputs_chk <- function(bin1, bin2, tree) {`
`70`	`70`	`}`
`71`	`71`	`} else if (inherits(tree, "phylo")) {`
`72`	`72`	`# Check if species names in 'bin1' and 'tree' match`
`73`		`- if (!identical(sort(names(bin1)), sort(tree[[4]]))) {`
	`73`	`+ if (!identical(sort(names(bin1)), sort(tree$tip.label))) {`
`74`	`74`	`stop("Species names in 'bin1' and 'tree' must match.")`
`75`	`75`	`}`
`76`	`76`	`}`
`@@ -86,7 +86,7 @@ inputs_chk <- function(bin1, bin2, tree) {`
`86`	`86`	`# Check if species names in 'bin1', 'bin2', and 'tree' match`
`87`	`87`	`if (inherits(tree, "phylo")) {`
`88`	`88`	`if (!identical(sort(names(bin1)), sort(names(bin2))) \|\|`
`89`		`- !identical(sort(tree[[4]]), sort(names(bin1)))) {`
	`89`	`+ !identical(sort(tree$tip.label), sort(names(bin1)))) {`
`90`	`90`	`stop("Species names in 'bin1', 'bin2', and 'tree' must`
`91`	`91`	`match.")`
`92`	`92`	`}`