Add more ui styling

1 files changed, 24 insertions, 3 deletions

diff --git a/app.R b/app.R
index 04e7b17..5d81592 100644
--- a/app.R
+++ b/app.R
@@ -4,6 +4,8 @@ library(shiny)
 library(ggplot2)
 library(dplyr)
 library(plotly)
+library(shinydashboard)
+library(shinydashboardPlus)
 library(shinyjs)  # Added library for JavaScript interaction.
 
 # Data preprocessing: Convert columns to appropriate data types
@@ -94,8 +96,7 @@ ui <- fluidPage(
            textOutput("doi_url_display"),  # Move this line above the plot
            plotlyOutput("plot")
     )
-  )
-)
+  ))
 
 # Define the Shiny server logic
 # Define the Shiny server logic
@@ -348,6 +349,26 @@ server <- function(input, output, session) {
   })
 }
 
+body = dashboardBody(ui)
+
+footer = dashboardFooter(
+        left = a(
+          href = "https://git.genenetwork.org/mouse-longevity-app/",
+          target = "_blank", "source code"
+        ),
+        right = "2024 | David Ashbrook"
+      )
 
 # Run the Shiny app
-shinyApp(ui, server)
+shinyApp(
+  ui = dashboardPage(
+    title = "Mouse Longevity Explorer",
+    header = dashboardHeader(disable=TRUE),
+    sidebar = dashboardSidebar(disable=TRUE),
+    body = body,
+    footer = footer,
+    skin = "black",
+  ), 
+
+  server = server
+)