有光泽:动态更改选项卡名称

时间:2017-12-19 23:45:02

标签: r shiny translation navbar tabpanel

我正在处理一个应该处理多种语言的Shiny应用程序。我设法根据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)

updatenavbarpanel()系列函数只是设置活动标签,而不是改变它们的特征......有没有办法做到这一点,如果可能的话,不会改变我所有应用程序的结构。 。 非常感谢。

1 个答案:

答案 0 :(得分:3)

这段代码动态设置标题:

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)

编辑:适用于uiOutput("title_panel")和&amp; textOutput("title_panel")