Update bold_identify_taxonomy.R

used '\' instead of 'function' ><
ropensci · Sep 6, 2023 · 40f08e8 · 40f08e8
1 parent dc46f3b
commit 40f08e8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/bold_identify_taxonomy.R b/R/bold_identify_taxonomy.R
@@ -40,7 +40,7 @@ methods::setMethod(
   definition = function(x, taxOnly = TRUE) {
     b_assert_length(x, len = 0L, name = "x")
     taxOnly <- b_assert_logical(taxOnly, name = "taxOnly")
-    hasID <- vapply(x, \(x) "ID" %in% colnames(x), NA)
+    hasID <- vapply(x, function(x) "ID" %in% colnames(x), NA)
     if (all(!hasID)) {
       stop("no column 'ID' found in x")
     } else {