Strangely these dots appear to the left side. I can click on each tab only ONCE. T

I think you need to wrap the menuItem s in <code class

Menuitem select only once about shinydashboard HOT 4 CLOSED

rstudio commented on August 22, 2024

Menuitem select only once

from shinydashboard.

Comments (4)

wch commented on August 22, 2024 5

I think you need to wrap the menuItems in sidebarMenu(), like so:

  dashboardSidebar(
    sidebarMenu(
      menuItem("foo", tabName = "foo", icon = icon("dashboard")),
      menuItem("bar", tabName = "bar", icon = icon("th")),
      menuItem("baz", tabName = "baz", icon = icon("th"))
    )
  )

from shinydashboard.

wch commented on August 22, 2024

Can you provide a small reproducible example?

from shinydashboard.

geoHeil commented on August 22, 2024

Hi here it is:

UI .r

library(shiny)
library(shinydashboard)

dashboardPage(
dashboardHeader(title = "hello world"),
dashboardSidebar(

menuItem("foo", tabName = "foo", icon = icon("dashboard")),
menuItem("bar", tabName = "bar", icon = icon("th")),
menuItem("baz", tabName = "baz", icon = icon("th"))

),
dashboardBody(

tabItems(
  # First tab content
  tabItem(tabName = "foo",
          h2("asdfsd!")
  ),
          # Second tab content
  tabItem(tabName = "bar",
                  h2("To be done"),
                  infoBox("New kkkkkk", 10 * 2, icon = icon("credit-card"))
  ),
  tabItem(tabName = "baz",
                  h2("To be done"),
                  infoBox("New Orders", 10 * 2, icon = icon("credit-card"))
  )

)
)
)

server .r

library(shiny)

shinyServer(function(input, output) {

output$distPlot <- renderPlot({

# generate bins based on input$bins from ui.R
x    <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = input$bins + 1)

# draw the histogram with the specified number of bins
hist(x, breaks = bins, col = 'darkgray', border = 'white')

})

from shinydashboard.

geoHeil commented on August 22, 2024

Thanks a lot!!!

from shinydashboard.

Recommend Projects