如何将选项卡面板添加到dashboardHeader？

Question

我试图在dashboardHeader中创建两个选项卡选项，这些选项卡不是下拉菜单。当应用程序打开时，它将在第一个选项卡上打开，然后为用户提供切换到另一个选项卡的选项，然后会出现一个新页面。在网上看不到任何东西，并且尝试了一些操作，但一直在说我需要下拉菜单。

UI：

dashboardHeader(title = "Human Trafficking", tabPanel(tabName = "victim", "Victim"),
                        tabPanel(tabName = "trafficker"))

dashboardBody(

    useShinyjs(),
    tags$div(id = "VictimTab",
             tags$h1("VictimTab")
    ),
    tags$div(id = "TraffickerTab",
             tags$h1("Trafficker")
    )

服务器：

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

  observeEvent(input$HumanTrafficking, {
    if(input$HumanTrafficking == "Victim"){
      showElement("VictimTab")
      hideElement("TraffickerTab")
    } else {
      hideElement("VictimTab")
      showElement("TraffickerTab")
    }
  })