source("incl/start.R")
if (requireNamespace("pbmcapply", quietly = TRUE)) {
handlers("pbmcapply")
for (x in list(integer(0), 1:10, 1L)) {
message("length(x): ", length(x))
with_progress({ y <- slow_sum(x) })
print(y)
}
}
source("incl/end.R")
Generated by dwww version 1.15 on Fri May 24 05:42:16 CEST 2024.