Trace UI warning in shiny

,

Here a SO crosspost can be found.

The below shiny app will raise the following warning:

Warning: Navigation containers expect a collection of `bslib::nav_panel()`/`shiny::tabPanel()`s and/or `bslib::nav_menu()`/`shiny::navbarMenu()`s. Consider using `header` or `footer` if you wish to place content above (or below) every panel's contents.

The reason for this warning is clear.

I'm wondering if there is a way to trace the origin (a linenumber) of this warning.

The usecase is a much bigger app calling shinydashboard::tabBox several times.

I tried using devmode and different debugging options in RStudio, but so far without a viable reference.


library(shiny)

devmode()
options(warn = 2, shiny.error = browser, shiny.fullstacktrace = TRUE, shiny.trace = TRUE)

ui <- function(request){
  fluidPage(
    tabsetPanel(
      div("This will raise a warning. What is my linenumber?")
    )
  )
}

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

shinyApp(ui, server)