Use magrittr pipe

rstudio · Sep 30, 2024 · 1a4cb17 · 1a4cb17
1 parent f93774c
commit 1a4cb17
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/README.md b/README.md
@@ -41,11 +41,11 @@ server <- function(input, output, session) {
   cars <- tbl(pool, "mtcars")
 
   output$tbl <- renderTable({
-    cars |> filter(cyl == !!input$cyl) |> collect()
+    cars %>% filter(cyl == !!input$cyl) %>% collect()
   })
   output$popPlot <- renderPlot({
-    df <- cars |> head(input$nrows) |> collect()
-    pop <- df |> pull("mpg", name = "model")
+    df <- cars %>% head(input$nrows) %>% collect()
+    pop <- df %>% pull("mpg", name = "model")
     barplot(pop)
   })
 }

diff --git a/vignettes/why-pool.Rmd b/vignettes/why-pool.Rmd
@@ -158,11 +158,11 @@ server <- function(input, output, session) {
   cars <- tbl(pool, "mtcars")
 
   output$tbl <- renderTable({
-    cars |> filter(cyl == !!input$cyl) |> collect()
+    cars %>% filter(cyl == !!input$cyl) %>% collect()
   })
   output$popPlot <- renderPlot({
-    df <- cars |> head(input$nrows) |> collect()
-    pop <- df |> pull("mpg", name = "model")
+    df <- cars %>% head(input$nrows) %>% collect()
+    pop <- df %>% pull("mpg", name = "model")
     barplot(pop)
   })
 }