make get_wormsid not crash when rows specified and query not found

relates to #919
ropensci · Nov 9, 2023 · d067035 · d067035
1 parent 2690950
commit d067035
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_wormsid.R b/R/get_wormsid.R
@@ -362,7 +362,7 @@ worms_worker <- function(x, expr, rows, marine_only, fuzzy, ...) {
     class(rows) %in% c('numeric', 'integer') &&
     rows[length(rows)] <= 50
   ) {
-    expr(x, marine_only = marine_only, fuzzy = fuzzy, ...)
+    try_df(expr(x, marine_only = marine_only, fuzzy = fuzzy, ...))
   } else if (
     all(!is.na(rows)) &&
     class(rows) %in% c('numeric', 'integer') &&