1context("data.frame binding") 2 3test_that("rbind_dfs keep classes of columns", { 4 df <- data_frame( 5 integer = seq_len(10), 6 numeric = as.numeric(seq_len(10)), 7 character = letters[1:10], 8 factor = factor(letters[1:10]), 9 ordered = ordered(letters[1:10]), 10 date = Sys.Date() 11 ) 12 df2 <- rbind_dfs(list(df[1:5, ], df[6:10, ])) 13 expect_equal(df2, df) 14}) 15