How do I use nav_insert() inside a module?

[fzenoni]

I am struggling in using nav_insert() into a shiny module.

As an example, the following simple Shiny app works:

# Inserting and removing
ui <- page_fluid(
  actionButton("add", "Add 'Dynamic' tab"),
  actionButton("remove", "Remove 'Foo' tab"),
  navset_card_pill(
    id = "tabs",
    nav_panel("Hello", "hello"),
    nav_panel("Foo", "foo"),
    nav_panel("Bar", "bar tab")
  )
)

server <- function(input, output) {
  observeEvent(input$add, {
    nav_insert(
      "tabs",
      target = "Bar",
      select = TRUE,
      nav_panel("Dynamic", "Dynamically added content")
    )
  })
  observeEvent(input$remove, {
    nav_remove("tabs", target = "Foo")
  })
}
shinyApp(ui, server)

But once I put the UI into a module, I am lost.

This would be the main app:

ui <- page_fluid(
  mod_nav_tabs_ui("main_tabs")
)

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

shinyApp(ui, server)

and this is the module, to be put under R/.

mod_nav_tabs_ui <- function(id) {
  ns <- NS(id)
  tagList(
    actionButton(ns("add"), "Add 'Dynamic' tab"),
    actionButton(ns("remove"), "Remove 'Foo' tab"),
    navset_card_pill(
      id = ns("tabs"),
      nav_panel("Hello", "hello"),
      nav_panel("Foo", "foo"),
      nav_panel("Bar", "bar tab")
    )
  )
}

mod_nav_tabs_server <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    observeEvent(input$add, {
      nav_insert(
        ns("tabs"),
        target = "Bar",
        select = TRUE,
        nav_panel("Dynamic", "Dynamically added content")
      )
    })
    observeEvent(input$remove, {
      nav_remove(ns("tabs"), target = "Foo")
    })
  })
}

What am I doing wrong?

[cpsievert]

I'm pretty sure you can just remove the ns() calls in mod_nav_tabs_server?

[fzenoni]

I'm not sure why, but yes, it works. 😄
Thanks a lot!