Re-document with latest roxygen2 features (#310)

NAMESPACE

@@ -8,6 +8,14 @@ S3method(as_glue,character)
 S3method(as_glue,default)
 S3method(as_glue,glue)
 S3method(print,glue)
+S3method(testthat::compare,glue)
+S3method(vctrs::vec_cast,character.glue)
+S3method(vctrs::vec_cast,glue.character)
+S3method(vctrs::vec_cast,glue.glue)
+S3method(vctrs::vec_ptype2,character.glue)
+S3method(vctrs::vec_ptype2,glue.character)
+S3method(vctrs::vec_ptype2,glue.glue)
+S3method(waldo::compare_proxy,glue)
 export(as_glue)
 export(backtick)
 export(double_quote)

R/glue-package.R

@@ -0,0 +1,6 @@
+#' @keywords internal
+"_PACKAGE"
+
+## usethis namespace: start
+## usethis namespace: end
+NULL

R/glue.R

@@ -373,12 +373,3 @@ as.character.glue <- function(x, ...) {
 
 #' @importFrom methods setOldClass
 setOldClass(c("glue", "character"))
-
-
-#' Deprecated Functions
-#'
-#' These functions are Deprecated in this release of glue, they will be removed
-#' in a future version.
-#' @name glue-deprecated
-#' @keywords internal
-NULL

R/utils.R

@@ -75,15 +75,15 @@ delayed_assign <- function(x, value, eval.env = parent.frame(1), assign.env = pa
   do.call(delayedAssign, list(x, value, eval.env, assign.env))
 }
 
-## @export
+#' @exportS3Method testthat::compare
 compare.glue <- function(x, y, ...) {
   if (identical(class(y), "character")) {
     class(x) <- NULL
   }
   NextMethod("compare")
 }
 
-## @export
+#' @exportS3Method waldo::compare_proxy
 compare_proxy.glue <- function(x, path = "x") {
   class(x) <- NULL
   NextMethod("compare_proxy")

R/vctrs.R

@@ -1,23 +1,26 @@
-
-# Registered in .onLoad()
-
+#' @exportS3Method vctrs::vec_ptype2
 vec_ptype2.glue.glue <- function(x, y, ...) {
   x
 }
+#' @exportS3Method vctrs::vec_ptype2
 vec_ptype2.glue.character <- function(x, y, ...) {
   x
 }
+#' @exportS3Method vctrs::vec_ptype2
 vec_ptype2.character.glue <- function(x, y, ...) {
   y
 }
 
 # Note order of class is the opposite as for ptype2
+#' @exportS3Method vctrs::vec_cast
 vec_cast.glue.glue <- function(x, to, ...) {
   x
 }
+#' @exportS3Method vctrs::vec_cast
 vec_cast.glue.character <- function(x, to, ...) {
   as_glue(x)
 }
+#' @exportS3Method vctrs::vec_cast
 vec_cast.character.glue <- function(x, to, ...) {
   unclass(x)
 }

R/zzz.R

@@ -1,15 +1,5 @@
 # nocov start
 .onLoad <- function(...) {
-  s3_register("testthat::compare", "glue")
-
-  s3_register("waldo::compare_proxy", "glue")
-
-  s3_register("vctrs::vec_ptype2", "glue.glue")
-  s3_register("vctrs::vec_ptype2", "character.glue")
-  s3_register("vctrs::vec_ptype2", "glue.character")
-  s3_register("vctrs::vec_cast", "glue.glue")
-  s3_register("vctrs::vec_cast", "character.glue")
-  s3_register("vctrs::vec_cast", "glue.character")
 
   if (isNamespaceLoaded("knitr") &&
       "knit_engines" %in% getNamespaceExports("knitr")) {