if (FALSE) {
ds <- dataset_range(6) %>% dataset_batch(2) %>% dataset_rebatch(3)
ds %>% as_array_iterator() %>% iterate(print)
# [0, 1, 2], [3, 4, 5]
ds <- dataset_range(7) %>% dataset_batch(4) %>% dataset_rebatch(3)
ds %>% as_array_iterator() %>% iterate(print)
# [0, 1, 2], [3, 4, 5], [6]
ds <- dataset_range(7) %>% dataset_batch(2) %>% dataset_rebatch(3, drop_remainder = TRUE)
ds %>% as_array_iterator() %>% iterate(print)
# [0, 1, 2], [3, 4, 5]
ds <- dataset_range(8) %>% dataset_batch(4) %>% dataset_rebatch(c(2, 1, 1))
ds %>% as_array_iterator() %>% iterate(print)
# [0, 1], [2], [3], [4, 5], [6], [7]
}
Run the code above in your browser using DataLab