This will get you in the right direction
library(shiny)
library(shinydashboard)
header <- dashboardHeader(
tags$li(
class = "dropdown",
tags$style(HTML("
.navbar-custom-menu{float:left !important;}
.sidebar-menu{display:flex;align-items:baseline;}"))
),
tags$li(
class = "dropdown",
sidebarMenu(
id = "tablist",
menuItem("Tab1", tabName = "tab1"),
menuItem("Tab2", tabName = "tab2")
)
)
)
body <- dashboardBody(
tabItems(
tabItem(
tabName = "tab1",
h1("tab1")
),
tabItem(
tabName = "tab2",
h1("tab2"),
textInput("foo", "Type something", "")
)
)
)
sidebar <-
ui <- dashboardPage(
header = header,
sidebar = dashboardSidebar(disable = TRUE),
body = body,
title = NULL,
skin = "black"
)
server <- shinyServer(function(input, output, session) {})
shinyApp(ui, server)