Add rbind and cbind methods

Fixes #2138

Author: hadley

NAMESPACE

@@ -31,6 +31,7 @@ S3method(auto_copy,tbl_df)
 S3method(auto_copy,tbl_sql)
 S3method(c,sql)
 S3method(cbind,grouped_df)
+S3method(cbind,tbl_df)
 S3method(collapse,data.frame)
 S3method(collapse,tbl_sql)
 S3method(collect,data.frame)
@@ -194,6 +195,7 @@ S3method(print,tbl_lazy)
 S3method(print,tbl_sql)
 S3method(query,DBIConnection)
 S3method(rbind,grouped_df)
+S3method(rbind,tbl_df)
 S3method(recode,character)
 S3method(recode,factor)
 S3method(recode,numeric)

NEWS.md

@@ -1,5 +1,8 @@
 # dplyr 0.5.0.9000
 
+* `tbl_df` gains `rbind()` and `cbind()` methods that call `bind_rows()` and
+  `bind_cols()` respectively (#2138)
+
 * `copy_to()` gains an `overwrite` argument which allows you to overwrite
   an existing table. Use with care! (#2296)
 

R/bind.r

@@ -81,6 +81,10 @@ bind_rows <- function(..., .id = NULL) {
   bind_rows_(x, .id)
 }
 
+#' @export
+rbind.tbl_df <- function(..., deparse.level = 1) {
+  bind_rows(...)
+}
 
 #' @export
 #' @rdname bind
@@ -89,6 +93,11 @@ bind_cols <- function(...) {
   cbind_all(x)
 }
 
+#' @export
+cbind.tbl_df <- function(..., deparse.level = 1) {
+  bind_cols(...)
+}
+
 #' @export
 #' @rdname bind
 combine <- function(...) {

tests/testthat/test-binds.R

@@ -1,5 +1,16 @@
 context("binds")
 
+
+# base --------------------------------------------------------------------
+
+test_that("cbind and rbind methods work for tbl_df", {
+  df1 <- tibble(x = 1)
+  df2 <- tibble(y = 2)
+
+  expect_equal(cbind(df1, df2), tibble(x = 1, y = 2))
+  expect_equal(rbind(df1, df2), tibble(x = c(1, NA), y = c(NA, 2)))
+})
+
 # columns -----------------------------------------------------------------
 
 test_that("cbind uses shallow copies", {