enhanced error msg

ropensci · Mar 13, 2018 · cbca0da · cbca0da
1 parent 01b9f56
commit cbca0da
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 3 deletions.
diff --git a/R/taxmap--parsers.R b/R/taxmap--parsers.R
@@ -208,7 +208,8 @@ parse_tax_data <- function(tax_data, datasets = list(), class_cols = 1,
   na_indexes <- which(vapply(parsed_tax, function(x) any(is.na(x)), logical(1)))
   if (length(na_indexes) > 0) {
     warning(call. = FALSE,
-            'The following input indexes have `NA` in their classifications:\n',
+            'The following ', length(na_indexes),' of ', length(parsed_tax),
+            ' input indexes have `NA` in their classifications:\n',
             limited_print(na_indexes, prefix = "  ", type = "silent"))
   }
 

diff --git a/data/ex_taxmap.rda b/data/ex_taxmap.rda
diff --git a/man-roxygen/taxmapegs.R b/man-roxygen/taxmapegs.R
@@ -102,7 +102,8 @@
 #' unidentified_animal <- hierarchy(mammalia, unidentified)
 #' unidentified_plant <- hierarchy(plantae, unidentified)
 #'
-#' info <- data.frame(name = c("tiger", "cat", "mole", "human", "tomato", "potato"),
+#' info <- data.frame(stringsAsFactors = FALSE,
+#'                    name = c("tiger", "cat", "mole", "human", "tomato", "potato"),
 #'                    n_legs = c(4, 4, 4, 2, 0, 0),
 #'                    dangerous = c(TRUE, FALSE, FALSE, TRUE, FALSE, FALSE))
 #'

diff --git a/man/taxmap.Rd b/man/taxmap.Rd