Add @export tags for internal S3 methods

DavisVaughan · DavisVaughan · commit d69802224a1d · 2024-02-13T17:05:40.000-05:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -64,4 +64,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
diff --git a/NAMESPACE b/NAMESPACE
@@ -120,6 +120,8 @@ S3method(rbind,grouped_df)
 S3method(recode,character)
 S3method(recode,factor)
 S3method(recode,numeric)
+S3method(recode_default,default)
+S3method(recode_default,factor)
 S3method(reframe,data.frame)
 S3method(relocate,data.frame)
 S3method(rename,data.frame)
diff --git a/R/recode.R b/R/recode.R
@@ -239,6 +239,7 @@ recode_default <- function(x, default, out) {
   UseMethod("recode_default")
 }
 
+#' @export
 recode_default.default <- function(x, default, out) {
   same_type <- identical(typeof(x), typeof(out))
   if (is.null(default) && same_type) {
@@ -248,6 +249,7 @@ recode_default.default <- function(x, default, out) {
   }
 }
 
+#' @export
 recode_default.factor <- function(x, default, out) {
   if (is.null(default)) {
     if ((is.character(out) || is.factor(out)) && is.factor(x)) {

Original file line number	Diff line number	Diff line change
`@@ -239,6 +239,7 @@ recode_default <- function(x, default, out) {`
`239`	`239`	`UseMethod("recode_default")`
`240`	`240`	`}`
`241`	`241`
	`242`	`+#' @export`
`242`	`243`	`recode_default.default <- function(x, default, out) {`
`243`	`244`	`same_type <- identical(typeof(x), typeof(out))`
`244`	`245`	`if (is.null(default) && same_type) {`
`@@ -248,6 +249,7 @@ recode_default.default <- function(x, default, out) {`
`248`	`249`	`}`
`249`	`250`	`}`
`250`	`251`
	`252`	`+#' @export`
`251`	`253`	`recode_default.factor <- function(x, default, out) {`
`252`	`254`	`if (is.null(default)) {`
`253`	`255`	`if ((is.character(out) \|\| is.factor(out)) && is.factor(x)) {`