chore: minor rename of id

Author: averissimo

R/module_transform_data.R

@@ -23,7 +23,7 @@ ui_teal_transform_data <- function(id, transformators, class = "well") {
     transformators <- list(transformators)
   }
   checkmate::assert_list(transformators, "teal_transform_module")
-  names(transformators) <- sprintf("transformator_%d", seq_len(length(transformators)))
+  names(transformators) <- sprintf("transform_%d", seq_len(length(transformators)))
 
   lapply(
     names(transformators),
@@ -80,7 +80,7 @@ srv_teal_transform_data <- function(id, data, transformators, modules = NULL, is
     transformators <- list(transformators)
   }
   checkmate::assert_list(transformators, "teal_transform_module", null.ok = TRUE)
-  names(transformators) <- sprintf("transformator_%d", seq_len(length(transformators)))
+  names(transformators) <- sprintf("transform_%d", seq_len(length(transformators)))
 
   moduleServer(id, function(input, output, session) {
     module_output <- Reduce(