# NOT RUN {
dat <- data.frame(a=1:100, b=1:100)
filename <- tempfile()
write.table(dat, filename, sep = '\t', row.names = FALSE, quote = FALSE)
handler_fun <- function(x, i = 1) {
return(x[i])
}
batch_file(filename, 10, handler_fun)
# }
Run the code above in your browser using DataLab