uiOutput versus menuItem selected = TRUE
tonihaag opened this issue · comments
Hello,
I'm trying to dynamically change which menuItem is selected - in the earlier months of the year, I want to show a tab which contains information about "last year," but as the year progresses, "last year" stats become less important.
However, I've found this question in StackOverflow which mentioned a possible issue between uiOutput versus menuItem selected = TRUE: https://stackoverflow.com/questions/52706116/shinydashboard-menusubitem-not-rendering-at-start-in-case-of-several-menusubite
I can't switch to not using uiOutput because I have some fancy filters that I'd like applied...
I figured this wasn't the intended action, so I'm mentioning the issue!
My output isn't named "body" ... plus as mentioned in the StackOverflow post I received in response to this GitHub post, it doesn't work when you have reactive datasets
I can't post my entire code online because it's for a company and there's privacy and all that jazz, but here's my snippet from the body:
ui <- function(request) {
dashboardPagePlus(
## formatting ##
skin = "black",
collapse_sidebar = FALSE,
## objects ##
header = ui_header,
sidebar = ui_sidebar,
body = dashboardBody(
tabItems(
bodyDrilldown('bodyDrilldown'),
bodyBenchmark('bodyBenchmark'),
bodyHelp('bodyHelp')
),
## CSS styling ##
tags$head(tags$style(styling))
)
)
}
Can you please provide a reproducible example with some dummy data?
My output isn't named "body" ... plus as mentioned in the StackOverflow post I received in response to this GitHub post, it doesn't work when you have reactive datasets
I can't post my entire code online because it's for a company and there's privacy and all that jazz, but here's my snippet from the body:
ui <- function(request) { dashboardPagePlus( ## formatting ## skin = "black", collapse_sidebar = FALSE, ## objects ## header = ui_header, sidebar = ui_sidebar, body = dashboardBody( tabItems( bodyDrilldown('bodyDrilldown'), bodyBenchmark('bodyBenchmark'), bodyHelp('bodyHelp') ), ## CSS styling ## tags$head(tags$style(styling)) ) ) }
Have you proceeded on this issue elsewhere? Can you kindly close the issue if solved, and how did you solve it? Thanks.