aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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
+)