我需要创建一个包含语言选择条目的接口，为此，我正在使用“ 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（）中的错误：   没有活动的响应上下文，不允许进行操作。 （您尝试做只能从反应式表达式或观察器内部完成的操作。）