don't pass names from method into tip_taxa

brendanf · brendanf · commit e7ecda58bdc4 · 2020-10-14T21:52:53.000+02:00
diff --git a/R/taxonomy.R b/R/taxonomy.R
@@ -593,7 +593,7 @@ phylotax_ <- function(tree, taxa, node, ranks, method, e) {
         taxon
       )
       for (n in names(method)) {
-        newAssign[[n]] <- method[n]
+        newAssign[[n]] <- unname(method[n])
       }
       # remove assignments which are not consistent with the one we just chose
       e$tip_taxa <- dplyr::bind_rows(

Original file line number	Diff line number	Diff line change
`@@ -593,7 +593,7 @@ phylotax_ <- function(tree, taxa, node, ranks, method, e) {`
`593`	`593`	`taxon`
`594`	`594`	`)`
`595`	`595`	`for (n in names(method)) {`
`596`		`- newAssign[[n]] <- method[n]`
	`596`	`+ newAssign[[n]] <- unname(method[n])`
`597`	`597`	`}`
`598`	`598`	`# remove assignments which are not consistent with the one we just chose`
`599`	`599`	`e$tip_taxa <- dplyr::bind_rows(`