基于下拉菜单切换R Shiny应用UI文本的实现方法

以下是实现你需求的完整代码，核心通过observeEvent监听语言选择变化，动态更新对应控件的标签和占位符：

languageChoices = c("English", "Spanish")

myPlaceholder = list(
  English = "Tell me something interesting!",
  Spanish = "Dime algo interesante!"
)

shinyApp(
  ui = fluidPage(
    titlePanel("My App"),
    div(
      id = "form",
      
      # 改为下拉选择框，避免手动输入错误
      selectInput("language", "Language", choices = languageChoices, selected = "English"),
      textInput("favourite_pkg", "Favourite R package"),
      checkboxInput("used_shiny", "I've built a Shiny app in R before", FALSE),
      sliderInput("r_num_years", "Number of years using R", 0, 25, 2, ticks = FALSE),
      textInput("desc", "Tell me something?", width = '100%', placeholder = myPlaceholder[["English"]]),
      actionButton("submit", "Submit", class = "btn-primary")
    )
  ),
  server = function(input, output, session) {
    # 监听语言选择变化，更新控件
    observeEvent(input$language, {
      lang <- input$language
      
      # 更新favourite_pkg的标签
      new_label <- if(lang == "Spanish") "Paquete R favorito" else "Favourite R package"
      updateTextInput(session, "favourite_pkg", label = new_label)
      
      # 更新desc的占位符
      updateTextInput(session, "desc", placeholder = myPlaceholder[[lang]])
    })
  }
)

关键改动说明： #

• 将原textInput("language")改为selectInput，提供预设语言选项，提升用户体验并避免输入错误
• 用列表统一管理不同语言的占位符文本，后续新增语言时更易维护
• 通过observeEvent监听input$language的变化，实时触发两项更新：
  • 根据当前选择的语言，切换"favourite_pkg"的标签文本
  • 匹配对应语言的占位符到"desc"输入框
• 初始化时默认使用英文占位符，保证初始界面显示正常

内容的提问来源于stack exchange，提问作者user113156