我正在开发一个应该处理多种语言的闪亮应用程序。我设法动态翻译应用程序的几乎所有元素，具体取决于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)
And the updatenavbarpanel()函数系列只是设置活动选项卡，而不是改变它们的特性...有没有办法做到这一点，如果可能的话，不会改变我所有应用程序的结构...非常感谢。
这段代码动态设置标题：
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") & textOutput("title_panel")
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
