I have written the following code to create a dashboard:
library(shinydashboard)
library(shiny)
library(fresh)
mytheme <- create_theme(
adminlte_color(
light_blue = "#004e70"
),
adminlte_sidebar(
width = "400px",
dark_bg = "#3c3b3b",
dark_hover_bg = "#004e70",
dark_color = "white"
)
)
Header <- dashboardHeader(
title = "Labor Market Discrimination in Ecuador",
titleWidth = 450,
tags$li(a(img(src = "BID_Blanco.png",
title = "IDB Logo", height = "60px"),
tags$style(".sidebar-toggle {height: 70px; padding-top:10px; padding-botton:10px;")),
class = "dropdown")
)
Tabs <- dashboardSidebar(
tags$style(".left-side, .main-sidebar {padding-top: 70px}"),
sidebarMenu(
menuItem("General", tabName = "general"),
menuItem("Trial", tabName = "by_trial"),
menuItem("Sex", tabName = "by_ss")
)
)
Body <- dashboardBody(
use_theme(mytheme),
tabItems(
tabItem(tabName = "general"),
tabItem(tabName = "by_trial"),
tabItem(tabName = "by_ss")
)
)
ui <- dashboardPage(
Header,
Tabs,
Body
)
shinyApp(ui, server)
This code generates the following output:
https://i.sstatic.net/Z8w27.png
How can I increase the height of the title section (where it says "Labor Market Discrimination in Ecuador") to match the height of the blue bar where the logo is displayed?
Additionally, how can I remove the black space above the tabs section (right above "General")? This is one of my first shinydashboards, so I'm a little uncertain.