No examples for validate_property if not exported.

Author: dereckmezquita

R/enum.R

@@ -62,11 +62,6 @@ enum <- function(...) {
 #' @return No return value, called for side effects.
 #'         Prints a string representation of the enum object to the console.
 #' @export
-#'
-#' @examples
-#' Colors <- enum("red", "green", "blue")
-#' my_color <- Colors("red")
-#' print(my_color)  # Output: Enum: red
 print.enum <- function(x, ...) {
     cat("Enum:", x$value, "\n")
 }
@@ -80,14 +75,6 @@ print.enum <- function(x, ...) {
 #' @param e2 Second enum object or a character value
 #' @return Logical value indicating whether the two objects are equal
 #' @export
-#'
-#' @examples
-#' Colors <- enum("red", "green", "blue")
-#' color1 <- Colors("red")
-#' color2 <- Colors("blue")
-#' color1 == color2  # FALSE
-#' color1 == Colors("red")  # TRUE
-#' color1 == "red"  # TRUE
 `==.enum` <- function(e1, e2) {
     if (inherits(e2, "enum")) {
         e1$value == e2$value
@@ -105,11 +92,6 @@ print.enum <- function(x, ...) {
 #' @param name The name of the field to access (should be "value")
 #' @return The value of the enum object
 #' @export
-#'
-#' @examples
-#' Colors <- enum("red", "green", "blue")
-#' my_color <- Colors("red")
-#' my_color$value  # "red"
 `$.enum` <- function(x, name) {
     if (name == "value") {
         x[["value"]]
@@ -128,12 +110,6 @@ print.enum <- function(x, ...) {
 #' @param value The new value to set
 #' @return The updated enum object
 #' @export
-#'
-#' @examples
-#' Colors <- enum("red", "green", "blue")
-#' my_color <- Colors("red")
-#' my_color$value <- "blue"  # Valid assignment
-#' try(my_color$value <- "yellow")  # This will raise an error
 `$<-.enum` <- function(x, name, value) {
     if (name != "value") {
         stop("Cannot add new fields to an enum")
@@ -155,10 +131,6 @@ print.enum <- function(x, ...) {
 #' @return No return value, called for side effects.
 #'         Prints a string representation of the enum generator to the console.
 #' @export
-#'
-#' @examples
-#' Colors <- enum("red", "green", "blue")
-#' print(Colors)  # Output: Enum generator: red, green, blue
 print.enum_generator <- function(x, ...) {
     cat("Enum generator:", paste(attr(x, "values"), collapse = ", "), "\n")
 }

R/fun.R

@@ -119,19 +119,6 @@ fun <- function(...) {
 #'         Prints a human-readable representation of the typed function to the console,
 #'         showing the argument types and return type.
 #' @export
-#' @examples
-#' # Define a typed function
-#' multiply <- fun(
-#'   x = numeric,
-#'   y = numeric,
-#'   return = numeric,
-#'   impl = function(x, y) {
-#'     return(x * y)
-#'   }
-#' )
-#'
-#' # Print the typed function
-#' print(multiply)
 print.typed_function <- function(x, ...) {
     cat("Typed function:\n")
     cat("Arguments:\n")

R/interface.R

@@ -10,8 +10,6 @@
 #' @return A function of class 'interface' that creates objects implementing the defined interface.
 #'         The returned function takes named arguments corresponding to the interface properties
 #'         and returns an object of class 'interface_object'.
-#' @export
-#'
 #' @examples
 #' # Define an interface for a person
 #' Person <- interface(
@@ -44,6 +42,7 @@
 #' )
 #'
 #' my_car <- Car(make = "Toyota", model = "Corolla", color = "red")
+#' @export
 interface <- function(..., validate_on_access = FALSE, extends = list()) {
     properties <- list(...)