R row iterator

row_iterator.R

rows <- function(tab, idx=TRUE) {
  # Set idx to attach an index column
   if (is.na(tab) || is.null(tab) || nrow(tab) == 0) {
      return(list())
  }
  lapply(seq_len(nrow(tab)), 
         function(i) {
           row <- unclass(tab[i,,drop=F])
           if (idx) {
             row$idx <- i
           }
           row
         })
}