Dynamic sidebarMenu not working in 2.0.3

[pisistrato]

Just bumped into this, the following code (from ?renderMenu) generate and error
Warning: Error in renderUI: object 'expr' not found

library(shiny)
library(bs4Dash)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody()
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Menu item", icon = icon("calendar"))
    )
  })
}

shinyApp(ui, server)

[DivadNojnarg]

In the meantime, try this, which contains the missing piece of code causing the issue:

renderMenu <- function(expr, env = parent.frame(), quoted = FALSE, outputArgs = list()) {
 if (!quoted) {
    expr <- substitute(expr)
    quoted <- TRUE
  }
  shiny::renderUI(expr, env = env, quoted = quoted, outputArgs = outputArgs)
}

[DivadNojnarg]

Fixed in CRAN 2.1.0