fix bug in #81

phylotastic · Dec 15, 2023 · 40d87d4 · 40d87d4
1 parent 10d8764
commit 40d87d4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/opentree_taxonomy.R b/R/opentree_taxonomy.R
@@ -90,7 +90,7 @@ check_ott_input <- function(input = NULL, ott_ids = NULL, ...) {
       message(input)
       stop("OTT ids are NULL.")
     }
-    if (is.numeric(input$ott_id) & !is.na(input$ott_id)) {
+    if (all(is.numeric(input$ott_id) & !is.na(input$ott_id))) {
       ott_ids <- input$ott_ids
       names(ott_ids) <- input$cleaned_names
     } else {