fix: remove dplyr pipe

insightsengineering · Aug 13, 2024 · 5fc88d1 · 5fc88d1
1 parent 4b2f5a2
commit 5fc88d1
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/custom-transform/app.R b/custom-transform/app.R
@@ -80,16 +80,16 @@ my_transformers <- list(
   )
 )
 
-data <- teal_data() %>%
-  within({
-    ADSL <- teal.data::rADSL
-    ADTTE <- teal.data::rADTTE
-    iris <- iris
+data <- teal_data()
+data <- within(data, {
+  ADSL <- teal.data::rADSL
+  ADTTE <- teal.data::rADTTE
+  iris <- iris
 
-    CO2 <- CO2
-    factors <- names(Filter(isTRUE, vapply(CO2, is.factor, logical(1L))))
-    CO2[factors] <- lapply(CO2[factors], as.character)
-  })
+  CO2 <- CO2
+  factors <- names(Filter(isTRUE, vapply(CO2, is.factor, logical(1L))))
+  CO2[factors] <- lapply(CO2[factors], as.character)
+})
 join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADTTE")]
 teal.data::datanames(data) <- c("ADSL", "ADTTE", "iris", "CO2")