R shiny导航栏简单小例子

效果就是这个样子滴！

image.png

代码

library(shiny)
library(shinydashboard)

header<-dashboardHeader(title = "navbar Example")
sidebar<-dashboardSidebar(sidebarMenu(menuItem("Home",href = "#")))
body<-dashboardBody(tags$h1("This is a navbar example"),
                    navbarPage("example",
                      tabPanel("First navbar",
                               fluidRow(
                                 tags$h2("This is First navbar example"))),
                      tabPanel("Second nvabar",
                               fluidRow(tags$h3("This is Second navbar example"))),
                      navbarMenu("Third navbar",
                                 tabPanel("sub-navbar-1",fluidRow(tags$h3("sub-navbar-1"))),
                                 tabPanel("sub-navbar-2",fluidRow(tags$h3("sub-navbar-2"))),
                                 tabPanel("sub-navbar-3",fluidRow(tags$h3("sub-navbar-3")))
                                 )
                      )
                    )

ui<-dashboardPage(header = header,
                  sidebar = sidebar,
                  body = body)

server<-function(input,output){
  
}

shinyApp(ui,server)

欢迎大家关注我的公众号
小明的数据分析笔记本

公众号二维码.jpg