about summary refs log tree commit diff
path: root/app.R
diff options
context:
space:
mode:
authorjgart2024-08-16 02:17:16 -0500
committerjgart2024-08-16 02:17:16 -0500
commitd798fc1fe6a7b0e6b0c1b58008885236d5144427 (patch)
tree426621c521e2483b3a853cdef112f7e8ddbd9660 /app.R
parent7f8198195d68341242132911f15971c137797e61 (diff)
downloadmouse-longevity-app-d798fc1fe6a7b0e6b0c1b58008885236d5144427.tar.gz
Add more ui styling
Diffstat (limited to 'app.R')
-rw-r--r--app.R27
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
+)