diff --git a/R/choices_labeled.R b/R/choices_labeled.R
index 4050ecff..aefc8575 100644
--- a/R/choices_labeled.R
+++ b/R/choices_labeled.R
@@ -166,7 +166,7 @@ choices_labeled <- function(choices, labels, subset = NULL, types = NULL) {
 #' variable_choices("ADRS", subset = c("USUBJID", "STUDYID"))
 #'
 #' # functional subset (with delayed data) - return only factor variables
-#' variable_choices(ADRS, subset = function(data) {
+#' variable_choices("ADRS", subset = function(data) {
 #'   idx <- vapply(data, is.factor, logical(1))
 #'   names(data)[idx]
 #' })
diff --git a/man/variable_choices.Rd b/man/variable_choices.Rd
index 378fb43b..b69b069b 100644
--- a/man/variable_choices.Rd
+++ b/man/variable_choices.Rd
@@ -59,7 +59,7 @@ variable_choices(
 variable_choices("ADRS", subset = c("USUBJID", "STUDYID"))
 
 # functional subset (with delayed data) - return only factor variables
-variable_choices(ADRS, subset = function(data) {
+variable_choices("ADRS", subset = function(data) {
   idx <- vapply(data, is.factor, logical(1))
   names(data)[idx]
 })