fix: remove dplyr pipe

insightsengineering · Aug 13, 2024 · 563be2e · 563be2e
1 parent 4b2f5a2
commit 563be2e
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/custom-transform/app.R b/custom-transform/app.R
@@ -80,16 +80,15 @@ my_transformers <- list(
   )
 )
 
-data <- teal_data() %>%
-  within({
-    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)
-  })
+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)
+})
 join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADTTE")]
 teal.data::datanames(data) <- c("ADSL", "ADTTE", "iris", "CO2")