Adding esquisseUI to bs4DashPage

[mozturkmen]

I am trying to add esquisseUI to bs4DashPage. I have three tabs in the sidebar. When I try to add esquisse to only one tab, it seems work. But when I try to add a second bs4TabItem, it does not work.

Here is my code:

library(bs4Dash)
library(shiny)
library(esquisse)

ui <- bs4DashPage(
  
  old_school = FALSE,
  sidebar_collapsed = TRUE,
  controlbar_collapsed = TRUE,
  
  navbar = bs4DashNavbar(
    skin = "dark",
    sideBarIcon = "bars",
    controlbarIcon = "th"
    
    
  ),
  
  sidebar = bs4DashSidebar(
    skin = "dark",
    title = "DataVisABI",
    brandColor = "purple",
    text = "Welcome App!",
    bs4SidebarMenu(
      bs4SidebarHeader("Main Menu"),
      bs4SidebarMenuItem(
        "Input Data",
        tabName = "inputData",
        icon = "sliders"
      ),
      bs4SidebarMenuItem(
        "Automated Visualization",
        tabName = "autovis",
        icon = "id-card"
      ),
      bs4SidebarMenuItem(
        "Manual Visualization",
        tabName = "manualVis",
        icon = "id-card"
      )
    )
    
  ),
  
  body = bs4TabItems(
    bs4TabItem(tabName = "inputData", bs4Card()),
    bs4TabItem(
      tabName = "manualvis",
      esquisserUI(
        id = "esquisse",
        header = FALSE,
        choose_data = FALSE
      )
    )
  )
)



server <- function(input, output, session){
  
  #result <- callModule(
  #  module = esquisserServer,
  #  id = "esquisse",
  #  data = datasets[[input$dataset]]
  #)
  
  #output$module_out <- renderPrint({
  #    str(reactiveValuesToList(result))
  #})
  
  
}

shinyApp(ui, server)

What may be wrong here? How can I solve this problem?

Thanks,
Murat

[mozturkmen]

Edit:

I have solved the problem. I have changed tabItem id's. And it worked for me.