inst/shiny-apps/shinyGEO/ui/ui.dashboard.header.R

#####################################
# dashboard header
#####################################


header = dashboardHeader(
  title = uiOutput("shinyTitle"), titleWidth = 350, disable = FALSE 
)

# add id to sidebar toggle link so that we can refresh when clicked
tmp = header$children[[3]]$children[[2]]
tmp[[2]]$id = "sidebarToggle"
header$children[[3]]$children[[2]] = tmp
jasdumas/shinyGEO documentation built on June 4, 2022, 5:26 a.m.