diff --git a/app/rsconnect/shinyapps.io/agdamsbo/webResearch.dcf b/app/rsconnect/shinyapps.io/agdamsbo/webResearch.dcf
index 1b23e41..0cf98cd 100644
--- a/app/rsconnect/shinyapps.io/agdamsbo/webResearch.dcf
+++ b/app/rsconnect/shinyapps.io/agdamsbo/webResearch.dcf
@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13276335
-bundleId: 9334579
+bundleId: 9334619
 url: https://agdamsbo.shinyapps.io/webResearch/
 version: 1
diff --git a/app/server.R b/app/server.R
index 2cc1f43..995ad11 100644
--- a/app/server.R
+++ b/app/server.R
@@ -1,7 +1,7 @@
 # project.aid::merge_scripts(list.files("R/",full.names = TRUE),dest = here::here("app/functions.R"))
 # source(here::here("functions.R"))
 
-source("https://raw.githubusercongittent.com/agdamsbo/webResearch/refs/heads/main/app/functions.R")
+source("https://raw.githubusercontent.com/agdamsbo/webResearch/refs/heads/main/app/functions.R")
 
 library(readr)
 library(MASS)
@@ -17,6 +17,8 @@ library(assertthat)
 library(dplyr)
 library(quarto)
 library(here)
+library(broom)
+library(broom.helpers)
 
 
 server <- function(input, output, session) {
@@ -126,7 +128,9 @@ server <- function(input, output, session) {
   output$report <- downloadHandler(
     filename = "analyses.html",
     content = function(file) {
-      v$list |> write_quarto(file = file,qmd.file = "www/analyses.qmd")
+      v$list |>
+        write_quarto(file = file,
+                     qmd.file = "www/analyses.qmd")
     }
   )
 
diff --git a/app/ui.R b/app/ui.R
index 668070a..d436581 100644
--- a/app/ui.R
+++ b/app/ui.R
@@ -104,16 +104,16 @@ ui <- bslib::page_sidebar(
       ),
       actionButton("load", "Analyse", class = "btn-primary")
     )
-     ,
-
-     # Horizontal line ----
-     tags$hr(),
-     h4("Download results"),
-
-     # Button
-     downloadButton(outputId="report",
-                    label= "Download",
-                    icon = shiny::icon("download"))
+     # ,
+     #
+     # # Horizontal line ----
+     # tags$hr(),
+     # h4("Download results"),
+     #
+     # # Button
+     # downloadButton(outputId="report",
+     #                label= "Download",
+     #                icon = shiny::icon("download"))
   ),
   layout_columns(
     cards[[1]]
diff --git a/publish_shiny.R b/publish_shiny.R
index da6a9a8..794f3bc 100644
--- a/publish_shiny.R
+++ b/publish_shiny.R
@@ -13,3 +13,5 @@ project.aid::deploy_shiny(
   name.token = "rsconnect_agdamsbo_token",
   name.secret = "rsconnect_agdamsbo_secret"
 )
+
+