Avoid type mismatch when there are no taxonomic matches.

brendanf · Feb 8, 2019 · c210567 · c210567
1 parent 6ba78b2
commit c210567
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/funguildr.R b/R/funguildr.R
@@ -136,6 +136,7 @@ funguild_assign <- function (otu_table, db = get_funguild_db()) {
     dplyr::arrange(dplyr::desc(taxonomicLevel)) %>%
     dplyr::summarize_at("searchkey", dplyr::first) %>%
     dplyr::ungroup() %>%
+    dplyr::mutate_all(as.character) %>%
     dplyr::left_join(otu_table, ., by = "taxkey") %>%
     dplyr::left_join(db, by = "searchkey", suffix = c("", ".funguild")) %>%
     dplyr::select(-taxkey, -searchkey)