``` R test_that("bind_rows handles data frames with no columns (#1346)", { df1 <- data_frame(x = 1, y = factor("a")) df0 <- df1[, 0] expect_equal(bind_rows(df0), df0) expect_equal(bind_rows(df0, df0), df0) expect_equal(bind_rows(df0, df1), df1) }) ``` (should go in `test-binds.R`, in rows section)