# NOT RUN {
andr <- andromeda(cars = cars)
fun <- function(x) {
is.unsorted(x %>% select(speed) %>% collect())
}
result <- batchTest(andr$cars, fun, batchSize = 25)
result
# [1] FALSE
close(andr)
# }
Run the code above in your browser using DataLab