fun <- "seq"
data <- data.frame(from=c(1,10), to=c(2,11))
doforeachrow(data, fun, TRUE)
## [[1]]
## [1] 1 2
## [[2]]
## [1] 10 11
doforeachrow(data, fun, TRUE, length.out=c(4))
## [[1]]
## [1] 1.000000 1.333333 1.666667 2.000000
## [[2]]
## [1] 10.00000 10.33333 10.66667 11.00000
doforeachrow(data, fun, TRUE, length.out=c(3,5))
## [[1]]
## [1] 1.0 1.5 2.0
## [[2]]
## [1] 10.00 10.25 10.50 10.75 11.00
Run the code above in your browser using DataLab