formula to function in order to avoid .

insightsengineering · Feb 15, 2024 · b2cacdc · b2cacdc
1 parent 48483e7
commit b2cacdc
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/validate_inputs.R b/R/validate_inputs.R
@@ -58,12 +58,12 @@
 #'   # set up input validation
 #'   iv <- InputValidator$new()
 #'   iv$add_rule("letter", sv_in_set(LETTERS, "choose a capital letter"))
-#'   iv$add_rule("number", ~ if (as.integer(.data$.) %% 2L == 1L) "choose an even number")
+#'   iv$add_rule("number", function(x) if (as.integer(x) %% 2L == 1L) "choose an even number")
 #'   iv$enable()
 #'   # more input validation
 #'   iv_par <- InputValidator$new()
 #'   iv_par$add_rule("color", sv_required(message = "choose a color"))
-#'   iv_par$add_rule("color", ~ if (length(.data$.) > 1L) "choose only one color")
+#'   iv_par$add_rule("color", function(x) if (length(x) > 1L) "choose only one color")
 #'   iv_par$add_rule(
 #'     "size",
 #'     sv_between(
@@ -87,7 +87,7 @@
 #'       ))
 #'     )
 #'
-#'     plot(.data$eruptions ~ .data$waiting, faithful,
+#'     plot(faithful$eruptions ~ faithful$waiting,
 #'       las = 1, pch = 16,
 #'       col = input[["color"]], cex = input[["size"]]
 #'     )

diff --git a/man/validate_inputs.Rd b/man/validate_inputs.Rd