library(shiny)
library(shi18ny)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
sidebarLayout(
sidebarPanel(
langSelectorInput("lang", position = "fixed")
),
mainPanel(
verbatimTextOutput("debug"),
uiOutput("options"),
uiOutput("results")
)
)
)
server <- function(input, output, session) {
i18n <- list(
defaultLang = "en",
availableLangs = c("es","de","en")
)
lang <- callModule(langSelector,"lang", i18n = i18n, showSelector=TRUE)
output$debug <- renderPrint({
c("Selected Lang",lang())
})
output$options <- renderUI({
choices <- c("first", "second")
names(choices) <- toupper(c(i_("share", lang()), i_("shape",lang())))
selectizeInput("sel_options", i_("select", lang()), choices)
})
output$results <- renderUI({
list(
h1(i_("myslang.hi",lang())),
h1(i_("language",lang()))
)
})
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.