bug: replace purrr::map with lapply

dshemetov · dshemetov · commit 9cc818ac64ab · 2023-04-24T14:45:35.000-07:00
diff --git a/R/check.R b/R/check.R
@@ -171,7 +171,7 @@ check_epirange_param <- function(name, value, required = TRUE) {
     return()
   } else if (is_epirange_like(value)) {
     return()
-  } else if (all(map(value, typeof) == "list") && length(value) > 0) {
+  } else if (all(vapply(value, is.list, logical(1L))) && length(value) > 0) {
     for (i in seq_along(value)) {
       check_single_epirange_param(paste0(name, "[", i, "]"), value[[i]], required = TRUE)
     }

Original file line number	Diff line number	Diff line change
`@@ -171,7 +171,7 @@ check_epirange_param <- function(name, value, required = TRUE) {`
`171`	`171`	`return()`
`172`	`172`	`} else if (is_epirange_like(value)) {`
`173`	`173`	`return()`
`174`		`- } else if (all(map(value, typeof) == "list") && length(value) > 0) {`
	`174`	`+ } else if (all(vapply(value, is.list, logical(1L))) && length(value) > 0) {`
`175`	`175`	`for (i in seq_along(value)) {`
`176`	`176`	`check_single_epirange_param(paste0(name, "[", i, "]"), value[[i]], required = TRUE)`
`177`	`177`	`}`