Add str_to_lower

R/experimental.R

@@ -6,7 +6,8 @@ model_field <- function(fn, default = NA, ...) {
 
 
 # ---
-model_config <- function(allow_extra = FALSE, ...) {
+model_config <- function(allow_extra = FALSE,
+                         str_to_lower = FALSE, ...) {
   return(c(as.list(environment()), list(...)))
 }
 
@@ -55,6 +56,10 @@ base_model2 <- function(fields = list(), ...,
 
     obj <- validate_fields(obj, .validators_after)
 
+    if (isTRUE(.model_config$str_to_lower)) {
+      obj <- purrr::map_depth(obj, -1, str_to_lower)
+    }
+
     if (is.environment(obj)) {
       return(invisible(obj))
     }

R/helpers.R

@@ -27,15 +27,20 @@ validate_fields <- function(obj, validators) {
 }
 
 # ---
+str_to_lower <- function(x) {
+  ifelse(is.character(x), tolower(x), x)
+}
+
+# ---
+# TODO: Use 'structure' instead
 set_attributes <- function(x, ...) {
   attributes(x) <- c(attributes(x), list(...))
   return(x)
 }
 
 # ---
-add_class <- function(x, cls = "base_model") {
-  class(x) <- c(class(x), cls)
-  return(x)
+set_class <- function(x, cls = "base_model") {
+  structure(x, class = c(class(x), cls))
 }
 
 # ---