# NOT RUN {
andr <- andromeda(cars = cars)
fun <- function(x) {
return(nrow(x))
}
result <- batchApply(andr$cars, fun, batchSize = 25)
result
# [[1]]
# [1] 25
#
# [[2]]
# [1] 25
close(andr)
# }
Run the code above in your browser using DataLab