manually register all methods (#9)

krlmlr · krlmlr · commit 407f9cdd40bf · 2018-03-24T00:50:59.000+01:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -13,14 +13,8 @@ S3method(as.data.frame,blob)
 S3method(c,blob)
 S3method(format,blob)
 S3method(is.na,blob)
-S3method(is_vector_s3,blob)
-S3method(obj_sum,blob)
 S3method(print,blob)
-S3method(type_sum,blob)
 export(as.blob)
 export(blob)
 export(new_blob)
 importFrom(methods,setOldClass)
-importFrom(pillar,is_vector_s3)
-importFrom(pillar,obj_sum)
-importFrom(pillar,type_sum)
diff --git a/R/format.R b/R/format.R
@@ -15,20 +15,17 @@ print.blob <- function(x, ...) {
   }
 }
 
-#' @export
-#' @importFrom pillar type_sum
+# Dynamically exported, see zzz.R
 type_sum.blob <- function(x) {
   "blob"
 }
 
-#' @export
-#' @importFrom pillar obj_sum
+# Dynamically exported, see zzz.R
 obj_sum.blob <- function(x) {
   format(x, trim = FALSE)
 }
 
-#' @export
-#' @importFrom pillar is_vector_s3
+# Dynamically exported, see zzz.R
 is_vector_s3.blob <- function(x) TRUE
 
 blob_size <- function(x, digits = 3, trim = TRUE, ...) {
diff --git a/R/zzz.R b/R/zzz.R
@@ -1,6 +1,9 @@
 # nocov start
 .onLoad <- function(...) {
   register_s3_method("pillar", "pillar_shaft", "blob")
+  register_s3_method("pillar", "is_vector_s3", "blob")
+  register_s3_method("pillar", "type_sum", "blob")
+  register_s3_method("pillar", "obj_sum", "blob")
 
   invisible()
 }

Original file line number	Diff line number	Diff line change
`@@ -15,20 +15,17 @@ print.blob <- function(x, ...) {`
`15`	`15`	`}`
`16`	`16`	`}`
`17`	`17`
`18`		`-#' @export`
`19`		`-#' @importFrom pillar type_sum`
	`18`	`+# Dynamically exported, see zzz.R`
`20`	`19`	`type_sum.blob <- function(x) {`
`21`	`20`	`"blob"`
`22`	`21`	`}`
`23`	`22`
`24`		`-#' @export`
`25`		`-#' @importFrom pillar obj_sum`
	`23`	`+# Dynamically exported, see zzz.R`
`26`	`24`	`obj_sum.blob <- function(x) {`
`27`	`25`	`format(x, trim = FALSE)`
`28`	`26`	`}`
`29`	`27`
`30`		`-#' @export`
`31`		`-#' @importFrom pillar is_vector_s3`
	`28`	`+# Dynamically exported, see zzz.R`
`32`	`29`	`is_vector_s3.blob <- function(x) TRUE`
`33`	`30`
`34`	`31`	`blob_size <- function(x, digits = 3, trim = TRUE, ...) {`
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,9 @@`
`1`	`1`	`# nocov start`
`2`	`2`	`.onLoad <- function(...) {`
`3`	`3`	`register_s3_method("pillar", "pillar_shaft", "blob")`
	`4`	`+ register_s3_method("pillar", "is_vector_s3", "blob")`
	`5`	`+ register_s3_method("pillar", "type_sum", "blob")`
	`6`	`+ register_s3_method("pillar", "obj_sum", "blob")`
`4`	`7`
`5`	`8`	`invisible()`
`6`	`9`	`}`