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