R/append_df.R

In paulponcet/lplyr: 'dplyr' Verbs for Lists and Other Verbs for Data Frames

# from tidyr
append_df <-
function(x, 
         values, 
         after = length(x)) 
{
  y <- append(x, values, after = after)
  class(y) <- class(x)
  attr(y, "row.names") <- attr(x, "row.names")
  y
}