[skip style] [skip vbump] Restyle files

insightsengineering · Nov 14, 2024 · c2bc50d · c2bc50d
1 parent e86e19f
commit c2bc50d
Showing 1 changed file with 18 additions and 18 deletions.
diff --git 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())