Динамическое SidebarMenu, отражающее изменения в tabsetPanel

Question

У меня есть приборная панель тела, которая заполнена tabsetPanel.То, что я ищу, - это способ дать каждой tabPanel свою собственную боковую панельMenu

В моем коде при выборе вкладки изменяется только текст в теле.Как я могу расширить этот код таким образом, чтобы боковое меню обновлялось?

Я нашел несколько сообщений о stackoverflow (stackoverflow.com/questions/36742932/r-shinydashboard-dynamic-menu-selection), но какнасколько я мог видеть, они просто работают наоборот;щелчок в боковом меню приводит к изменению тела.

library(shiny)
library(shinydashboard)
library(shinyWidgets)

header <- dashboardHeader(disable = TRUE)

sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Hele Proces", tabname = "Totaal"),
    menuItem("Inhuur", tabname = "Inhuur")
  )
)
MainBox <- fluidRow(
  navbarPage(
             tabsetPanel(id = "Tabs",
                         tabPanel("Quick Facts", textOutput('text_out_1')),
                         tabPanel("Pre-audit", textOutput('text_out_2')),
                         tabPanel("Filter(s)"
                         )
             )
  )
)

body <- dashboardBody(titlePanel("PromView"), MainBox)

ui <- dashboardPage(title = "PromView",
                skin = "blue",
  header,
  sidebar,
  body
)

server <- function(input, output, session) { 
  output$text_out_1 <- renderText({
    paste("You have selected", input$Tabs)
  })
  output$text_out_2 <- renderText({
    paste("You have selected", input$Tabs)
  })
}