Shinydashboard Sidebar初学者问题--要点

Question

到目前为止，我的第一个shinydashboard应用程序看起来还不错，除了侧边栏中的要点。我做错了什么？

ui <- shinydashboard::dashboardPage(
    shinydashboard::dashboardHeader(title="First App"),
    shinydashboard::dashboardSidebar(
        shinydashboard::menuItem("Accounts", tabName = "accounts", icon = shiny::icon("users")),
        shinydashboard::menuItem("Topics", icon = shiny::icon("hashtag"), 
            shinydashboard::menuSubItem("Multi-Topic-View", tabName = "topics_multi"),
            shinydashboard::menuSubItem("Single-Topic-View", tabName = "topic_single"),
            shinydashboard::menuSubItem("Tweet-View", tabName = "topic_tweet")
        )
    ),
    shinydashboard::dashboardBody(
        shinydashboard::tabItems(
            shinydashboard::tabItem(tabName="accounts", shiny::h2("Account tab content")),
            shinydashboard::tabItem(tabName="topics_multi", shiny::h2("Multi Topic tab content")),
            shinydashboard::tabItem(tabName="topic_single", shiny::h2("Single Topic tab content")),
            shinydashboard::tabItem(tabName="topic_tweet", shiny::h2("Tweet Topic tab content"))
        )
    )
)

server <- function(input, output) { }

app <- shiny::shinyApp(ui, server)
shiny::runApp(app, launch.browser=TRUE)

这是我在Windows机(R版本4.0.3，shinydashboard_0.7.1，shiny_1.6.0)上用Google Chrome运行这段代码时的截图。我能去掉要点吗？

​

​

Answer 1

在dashboardSidebar()中使用sidebarMenu(id = "tabs",...)消除项目符号。您可以随心所欲地定义id。

ui <- shinydashboard::dashboardPage(
  shinydashboard::dashboardHeader(title="First App"),
  dashboardSidebar(
    sidebarMenu(id = "tabs",  # Setting id makes input$tabs give the tabName of currently-selected tab
    menuItem("Accounts", tabName = "accounts", icon = icon("users")),
    menuItem("Topics", icon = shiny::icon("hashtag"), 
                             menuSubItem("Multi-Topic-View", tabName = "topics_multi"),
                             menuSubItem("Single-Topic-View", tabName = "topic_single"),
                             menuSubItem("Tweet-View", tabName = "topic_tweet")
    ))
  ),
  shinydashboard::dashboardBody(
    tabItems(
      tabItem(tabName="accounts", shiny::h2("Account tab content")),
      tabItem(tabName="topics_multi", shiny::h2("Multi Topic tab content")),
      tabItem(tabName="topic_single", shiny::h2("Single Topic tab content")),
      tabItem(tabName="topic_tweet", shiny::h2("Tweet Topic tab content"))
    )
  )
)

server <- function(input, output, session) { }

shinyApp(ui, server)

​

​