Merge pull request #100 from ropensci/99-failing-installing-bold-package

fixed anonymous functions syntaxe
ropensci · Sep 8, 2023 · 90e44fb · 90e44fb
2 parents 40f08e8 + d69f682
commit 90e44fb
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/bold_stats.R b/R/bold_stats.R
@@ -80,7 +80,7 @@ b_simplify_stats <- function(x, dataType) {
     n <- which(vapply(x, inherits, NA, "integer"))
     ov <- vapply(x[-n], `[[`, 0L, "count")
     ov <- as.data.frame(c(x[n],ov))
-    dd <- lapply(x[-n], \(x) {
+    dd <- lapply(x[-n], function(x) {
       y <- x$drill_down
       i <- 0
       while (!is.data.frame(y) && i < 5) {

diff --git a/R/bold_tax_id2.R b/R/bold_tax_id2.R
@@ -130,7 +130,7 @@ b_process_tax_id <- function(x, ids, types, tree) {
         out <- b_format_tax_id(out, ids = ids)
       } else {
         tmp <-
-          lapply(b_nameself(names(out)), \(id) b_format_tax_id(out[[id]], id))
+          lapply(b_nameself(names(out)), function(id) b_format_tax_id(out[[id]], id))
         out <-
           lapply(b_nameself(types), b_grp_dataTypes_tree, x = tmp)
         if ("basic" %in% names(out) &&

diff --git a/R/bold_trace.R b/R/bold_trace.R
@@ -130,7 +130,7 @@ bold_read_trace <- function(x){
     else
       `names<-`(x, basename(x))
   }
-  lapply(trace_paths, \(trace_path) {
+  lapply(trace_paths, function(trace_path) {
     if (file.exists(trace_path)) {
       sangerseqR::readsangerseq(trace_path)
     } else {

diff --git a/R/utils.R b/R/utils.R
@@ -70,7 +70,7 @@ b_parse <- function(res, format, raise = TRUE, cleanData = FALSE, multiple = FAL
   }
 }
 b_cleanData <- function(x, emptyValue = NA){
-  col2clean <- vapply(x, \(x) {
+  col2clean <- vapply(x, function(x) {
     any(b_detect(x, "|", max_count = 1, fixed = TRUE), na.rm = TRUE)
   }, NA)
   col2clean <- which(col2clean, useNames = FALSE)