From c2bc50dfca0550c199dbf46c77d04f50f8049166 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Thu, 14 Nov 2024 08:45:03 +0000
Subject: [PATCH] [skip style] [skip vbump] Restyle files

---
 .../decorate-multiple-modules-outputs.Rmd     | 36 +++++++++----------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/vignettes/decorate-multiple-modules-outputs.Rmd b/vignettes/decorate-multiple-modules-outputs.Rmd
index 8cdf514fb6..f13299fc0e 100644
--- a/vignettes/decorate-multiple-modules-outputs.Rmd
+++ b/vignettes/decorate-multiple-modules-outputs.Rmd
@@ -74,29 +74,29 @@ tm_decorated_plot <- function(
         q1_1 <- reactive({
           req(input$dataname, input$x, input$y)
           within(data(),
-              {
-                plot_1 <- ggplot2::ggplot(dataname, ggplot2::aes(x = x, y = y)) +
-                  ggplot2::geom_point() +
-                  ggtitle("plot 1")
-              },
-              dataname = as.name(input$dataname),
-              x = as.name(input$x),
-              y = as.name(input$y)
-            )
+            {
+              plot_1 <- ggplot2::ggplot(dataname, ggplot2::aes(x = x, y = y)) +
+                ggplot2::geom_point() +
+                ggtitle("plot 1")
+            },
+            dataname = as.name(input$dataname),
+            x = as.name(input$x),
+            y = as.name(input$y)
+          )
         })
 
         q2_1 <- reactive({
           req(input$dataname, input$x, input$y)
           within(data(),
-              {
-                plot_2 <- ggplot2::ggplot(dataname, ggplot2::aes(x = x, y = y)) +
-                  ggplot2::geom_point() +
-                  ggtitle("plot 2")
-              },
-              dataname = as.name(input$dataname),
-              x = as.name(input$x),
-              y = as.name(input$y)
-            )
+            {
+              plot_2 <- ggplot2::ggplot(dataname, ggplot2::aes(x = x, y = y)) +
+                ggplot2::geom_point() +
+                ggtitle("plot 2")
+            },
+            dataname = as.name(input$dataname),
+            x = as.name(input$x),
+            y = as.name(input$y)
+          )
         })
 
         q1_2 <- srv_transform_data("decorate_1", data = q1_1, data_module = decorator_objs[[1]], modules = module())