R 闪亮：动态更改选项卡名称

我正在开发一个闪亮的应用程序，应该可以处理多种语言。根据

selectInput

选择语言，我成功地动态翻译了应用程序的几乎所有元素。然而，“硬东西”仍然是我的页面中的

navbarPage

选项卡以及

tabPanels

。我不能改变他们的名字。我试过这个，但不起作用：

library(shiny)
ui <- navbarPage("App Title",
                 tabPanel("tab1", 
                          selectInput("language", "language", c("EN", "FR"), width = '300px'),
                          textOutput("text")),
                 uiOutput("render_tab2"))
server <- function(input, output, session) {
  output$text = renderText({ switch(input$language, "EN"="hello world", "FR"="bonjour monde")  })
  output$render_tab2 = renderUI({
    tabPanel( title=switch(input$language, "EN"="tab2", "FR"="onglet2") )})}
shinyApp(ui, server)

库（闪亮）
ui这段代码动态设置标题：

library(shiny)
ui <- navbarPage("App Title",
                 tabPanel(title = uiOutput("title_panel"), 
                          selectInput("language", "language", c("EN", "FR"), width = '300px')
                )
    )

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

    output$title_panel = renderText({
        switch(input$language, "EN"="hello world", "FR"="bonjour monde") 
    })
}

shinyApp(ui, server)

库（闪亮）
ui签出以动态呈现具有不同名称的选项卡谢谢！这是一个我没想到的好办法！