simplify file structure

renames files that define an `adjust_*()` function and associated method as `adjust_function_name.R`. helps to differentiate this relatively homogenous file type from other kinds of source files.

R/container.R

@@ -57,7 +57,7 @@ new_container <- function(mode, type, operations, columns, ptype, call) {
   }
 
   # validate operation order and check duplicates
-  validate_oper_order(operations, mode, call)
+  validate_order(operations, mode, call)
 
   # check columns
   res <- list(

R/utils.R

@@ -15,3 +15,33 @@ no_param <-
     component = character(0),
     component_id = character(0)
   )
+
+# These values are used to specify "what will we need for the adjustment?" and
+# "what will we change?". For the outputs, we cannot change the probabilities
+# without changing the classes. This is important because we are going to have
+# to define constrains on the order of adjustments.
+
+input_vals <- c("numeric", "probability", "class", "everything")
+output_vals <- c("numeric", "probability_class", "class", "everything")
+
+new_operation <- function(cls, inputs, outputs, arguments, results = list(trained = FALSE), ...) {
+  inputs <- arg_match0(inputs, input_vals)
+  outputs <- arg_match0(outputs, output_vals)
+
+  if (!any(names(results) == "trained")) {
+    cli_abort("The {.arg results} slot requires a logical variable called \\
+                   {.val trained}")
+  } else {
+    check_logical(results$trained)
+  }
+
+  res <-
+    list(
+      inputs = inputs,
+      outputs = outputs,
+      arguments = arguments,
+      results = results
+    )
+  class(res) <- c(cls, "operation")
+  res
+}

R/validation-rules.R

@@ -1,5 +1,5 @@
-validate_oper_order <- function(ops, mode, call) {
-  oper_data <-
+validate_order <- function(ops, mode, call) {
+  orderings <-
     tibble::new_tibble(list(
       name = purrr::map_chr(ops, ~ class(.x)[1]),
       input = purrr::map_chr(ops, ~ .x$inputs),
@@ -10,16 +10,16 @@ validate_oper_order <- function(ops, mode, call) {
     ))
 
   if (length(ops) < 2) {
-    return(invisible(oper_data))
+    return(invisible(orderings))
   }
 
   if (mode == "classification") {
-    check_classification_order(oper_data, call)
+    check_classification_order(orderings, call)
   } else {
-    check_regression_order(oper_data, call)
+    check_regression_order(orderings, call)
   }
 
-  invisible(oper_data)
+  invisible(orderings)
 }
 
 check_classification_order <- function(x, call) {