navbarPage2: navbarPage add custom input
In jeevanyue/ShinyFuncs: My Shiny functions

Description Usage Examples

navbarPage add custom input

1	navbarPage2(..., navbar2 = NULL)

## Only run this example in interactive R sessions
if (interactive()) {
  library(shiny)
  library(shinydashboard)
  navbar_search <- tags$ul(
    class = "nav navbar-nav navbar-left",
    tags$li(
      tags$form(
        class = "navbar-form",
        tagList(
          textInput("search", label = NULL))
        ))
  )
  navbar_user <- tags$ul(
    class = "nav navbar-nav navbar-right",
    tags$li(tags$form(class = "navbar-text", "User: Dean")),
    tags$li(
      tags$form(
        class = "navbar-form",
        tagList(
          actionButton(
            style = "background-color:rgba(0,0,0,0); border:0; border-radius:15px;",
            "help", label = NULL, icon = icon("question")),
          actionButton(
            style = "background-color:rgba(0,0,0,0); border:0;border-radius:15px;",
            "signout", label = NULL, icon = icon("sign-out")))
        ))
  )
  shinyApp(
    ui = navbarPage2(
      "Test app",
      tabPanel("tab1", "tab 1"),
      tabPanel("tab2", "tab 2"),
      tabPanel("tab3", "tab 3"),
      navbar2 = tagList(navbar_search, navbar_user)
    ),
    server = function(input, output, session) {
    }
    )
}