Выберите использование языка на блестящей приборной панели

Question

Мне нужно создать интерфейс, в котором есть запись для выбора языка, для этого я использую пакет "глянцевый.i18n", однако у меня проблемы с выполнением кода.

СЕРВЕР:

  i18n <- reactive({

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

Интерфейс пользователя:

  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 (): Операция не разрешена без активного реактивного контекста. (Вы пытались сделать что-то, что можно сделать только из реактивного выражения или наблюдателя.)