我正在处理一个应该处理多种语言的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()
系列函数只是设置活动标签,而不是改变它们的特征......有没有办法做到这一点,如果可能的话,不会改变我所有应用程序的结构。 。 非常感谢。
答案 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")