diff options
| -rw-r--r-- | app.R | 27 |
1 files changed, 24 insertions, 3 deletions
@@ -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 +) |