diff --git a/inst/app/tools/analysis/regress_ui.R b/inst/app/tools/analysis/regress_ui.R
index 14b08907..5fc48290 100644
--- a/inst/app/tools/analysis/regress_ui.R
+++ b/inst/app/tools/analysis/regress_ui.R
@@ -281,10 +281,12 @@ output$regress <- renderUI({
     register_print_output("summary_regress", ".summary_regress")
     register_print_output("predict_regress", ".predict_print_regress")
     register_plot_output("predict_plot_regress", ".predict_plot_regress",
-                          height_fun = "reg_pred_plot_height")
-    register_plot_output("plot_regress", ".plot_regress",
-                         height_fun = "reg_plot_height",
-                         width_fun = "reg_plot_width")
+      height_fun = "reg_pred_plot_height"
+    )
+    register_plot_output("plot_regress", ".plot_regress", 
+      height_fun = "reg_plot_height", 
+      width_fun = "reg_plot_width"
+    )
 
     ## two separate tabs
     reg_output_panels <- tabsetPanel(
@@ -300,14 +302,18 @@ output$regress <- renderUI({
         downloadLink("dl_reg_pred", "", class = "fa fa-download alignright"), br(),
         verbatimTextOutput("predict_regress")
       ),
-      tabPanel("Plot", plot_downloader("regress", width = reg_plot_width, height = reg_plot_height),
-        plotOutput("plot_regress", width = "100%", height = "100%"))
+      tabPanel("Plot", 
+        plot_downloader("regress", width = reg_plot_width, height = reg_plot_height),
+        plotOutput("plot_regress", width = "100%", height = "100%")
+      )
     )
 
-    stat_tab_panel(menu = "Model > Estimate",
-                  tool = "Linear regression (OLS)",
-                  tool_ui = "ui_regress",
-                  output_panels = reg_output_panels)
+    stat_tab_panel(
+      menu = "Model > Estimate", 
+      tool = "Linear regression (OLS)", 
+      tool_ui = "ui_regress", 
+      output_panels = reg_output_panels
+    )
 })
 
 reg_available <- reactive({
@@ -321,7 +327,6 @@ reg_available <- reactive({
 })
 
 .regress <- eventReactive(input$reg_run, {
-
   withProgress(message = "Estimating model", value = 1, {
     do.call(regress, reg_inputs())
   })
@@ -348,7 +353,8 @@ reg_available <- reactive({
 })
 
 .predict_print_regress <- reactive({
-  .predict_regress() %>% {if (is.character(.)) cat(.,"\n") else print(.)}
+  .predict_regress() %>% 
+    {if (is.character(.)) cat(.,"\n") else print(.)}
 })
 
 .predict_plot_regress <- reactive({