在闪亮的仪表板上选择使用语言

Question

我需要创建一个包含语言选择条目的接口，为此，我正在使用“ shiny.i18n”包，但是我在执行代码时遇到了问题。

服务器：

  i18n <- reactive({

  translator <- Translator$new(translation_json_path = 
   "~/projects/GEOSIMCAST/DATA/translation.json")
  selected <- input$selected_language
  translator$set_translation_language(selected)
  translator
})

UI：

  dashboardSidebar(
                  sidebarMenu(
                    menuItem(i18n()$t("Dashboard"), tabName = "dashboard", 
   icon = icon("th")),

                    menuItem("Language", tabName = "language", icon = 
   icon("globe"),
                    radioButtons("selected_language", "Select language:",
                                  c("English" = "en",
                                    "Spanish" = "sp"
                                    ))),

                    menuItem("About", tabName = "about", icon = icon("th"),badgeLabel = "new", badgeColor = "green")
                  )
                ),

错误：

.getReactiveEnvironment（）$ currentContext（）中的错误：   没有活动的响应上下文，不允许进行操作。 （您尝试做只能从反应式表达式或观察器内部完成的操作。）