implement c()

krlmlr · krlmlr · commit ff1d71c36f4a · 2017-11-29T09:12:57.000+01:00
- Calling `c()` on blob objects returns a blob.
diff --git a/NAMESPACE b/NAMESPACE
@@ -10,6 +10,7 @@ S3method(as.blob,integer)
 S3method(as.blob,list)
 S3method(as.blob,raw)
 S3method(as.data.frame,blob)
+S3method(c,blob)
 S3method(format,blob)
 S3method(is.na,blob)
 S3method(is_vector_s3,blob)
diff --git a/R/accessors.R b/R/accessors.R
@@ -25,3 +25,6 @@
     NextMethod()
   }
 }
+
+#' @export
+c.blob <- function(x, ...) as.blob(NextMethod())
diff --git a/tests/testthat/test-accessors.R b/tests/testthat/test-accessors.R
@@ -22,3 +22,10 @@ test_that("can insert raw or NULL", {
 
   expect_equal(x, blob(as.raw(0), as.raw(0), NULL, NULL))
 })
+
+test_that("can combine", {
+  expect_identical(
+    c(blob(raw(4), raw(5)), blob(raw(7))),
+    blob(raw(4), raw(5), raw(7))
+  )
+})

Original file line number	Diff line number	Diff line change
`@@ -25,3 +25,6 @@`
`25`	`25`	`NextMethod()`
`26`	`26`	`}`
`27`	`27`	`}`
	`28`	`+`
	`29`	`+#' @export`
	`30`	`+c.blob <- function(x, ...) as.blob(NextMethod())`