From d798fc1fe6a7b0e6b0c1b58008885236d5144427 Mon Sep 17 00:00:00 2001 From: jgart Date: Fri, 16 Aug 2024 02:17:16 -0500 Subject: Add more ui styling --- app.R | 27 ++++++++++++++++++++++++--- 1 file 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 +) -- cgit v1.2.3