# # Custom App developed for Finance Team of Aramco # ::Asitav Sen:: # ::LaNubia Consulting:: # ::asitav.sen@lanubia.com:: # library(shiny) library(shinydashboard) library(countup) library(shinyWidgets) library(shinydashboardPlus) library(DBI) library(RPostgres) library(dplyr) library(echarts4r) library(lubridate) library(DT) library(excelR) library(blastula) library(shinymanager) library(glue) library(shinythemes) library(kableExtra) library(waiter) source("helper_server.R") source("mod_valuebox.R") source("mod_elinearea.R") source("mod_step.R") source("mod_datatable.R") source("helper_ui.R") # Define UI for application shinyUI( secure_app( shinydashboardPlus::dashboardPage( title = "Budgetrack", #skin = "blue-light", #skin = "midnight", header = shinydashboardPlus::dashboardHeader(title = "Budgetrack"), sidebar = shinydashboardPlus::dashboardSidebar( sidebarMenuOutput("menu") ), body = dashboardBody( tags$head(tags$style(HTML( ' /* logo */ .skin-blue .main-header .logo { background-color: #0477ci; } /* logo when hovered */ .skin-blue .main-header .logo:hover { background-color: #009adc; } /* navbar (rest of the header) */ .skin-blue .main-header .navbar { background-color: #0033a0; } /* main sidebar */ .skin-blue .main-sidebar { background-color: #ffffff; } /* active selected tab in the sidebarmenu */ .skin-blue .main-sidebar .sidebar .sidebar-menu .active a{ background-color: #01a54b; } /* other links in the sidebarmenu */ .skin-blue .main-sidebar .sidebar .sidebar-menu a{ background-color: #ffffff; color: #000000; } /* other links in the sidebarmenu when hovered */ .skin-blue .main-sidebar .sidebar .sidebar-menu a:hover{ background-color: #009adc; } ' ))), tabItems(dashboard, upload, appndev, explan, admin)) ), enable_admin = TRUE, theme = shinythemes::shinytheme("united"), tags_top = tags$div( tags$h4("Created exclusively for ", style ="align:center"), br(), tags$img( src = "https://www.aramco.com/images/affiliateLogo-2x.png", width = 100 ), br(), br(), tags$h4("By", style ="align:center"), tags$img(src="logo.png", width=100) ), tags_bottom = tags$p( "For any question, please contact", tags$a( href ="mailto:asitav.sen@lanubia.com?Subject=Aramco%20aBugdet", target="_top","Asitav Sen" ) ), background = "linear-gradient(225deg,rgb(0,163,224), rgb(0,51,160), rgb(0,132,61), rgb(132,189,0));" ) )