diff --git a/NAMESPACE b/NAMESPACE
index c58b53cb..518c5375 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -23,7 +23,6 @@ export(radsub)
 export(radtr)
 export(radtte)
 export(radvs)
-export(rcd_var_relabel)
 export(rel_var)
 export(replace_na)
 export(rtexp)
diff --git a/R/utils.R b/R/utils.R
index f61d5be1..53ad1ac4 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -188,14 +188,7 @@ retain <- function(df, value_var, event, outside = NA) {
 #'   name in `x` and the value to the new variable label.
 #' @return x (`data.frame`)\cr Data frame with labels applied.
 #'
-#' @examples
-#' adsl <- radsl()
-#' rcd_var_relabel(adsl,
-#'   STUDYID = "Study Identifier",
-#'   USUBJID = "Unique Subject Identifier"
-#' )
-#'
-#' @export
+#' @keywords internal
 rcd_var_relabel <- function(x, ...) {
   stopifnot(is.data.frame(x))
   if (missing(...)) {
diff --git a/man/rcd_var_relabel.Rd b/man/rcd_var_relabel.Rd
index 151e0ae2..c28c9f54 100644
--- a/man/rcd_var_relabel.Rd
+++ b/man/rcd_var_relabel.Rd
@@ -19,11 +19,4 @@ x (\code{data.frame})\cr Data frame with labels applied.
 Shallow copy of \code{formatters::var_relabel()}. Used mainly internally to
 relabel a subset of variables in a data set.
 }
-\examples{
-adsl <- radsl()
-rcd_var_relabel(adsl,
-  STUDYID = "Study Identifier",
-  USUBJID = "Unique Subject Identifier"
-)
-
-}
+\keyword{internal}