inst/shiny/app2/app.R

In sigbertklinke/gettext: Implements Localization of Texts Similar to 'GNU gettext'

library("shiny")
library("gettext")
readPofile('myproject_de_DE.po', lang='de')

server <- function(input, output, session) {
  observe({ # extract from URL the language
    query <- parseQueryString(session$clientData$url_search)
    lang <- if (is.null(query[['lang']])) 'en' else query[['lang']]
    options('gettext.lang'=lang) 
    updateSliderInput(session, 'nbin', gettext("Number of bins:"))   # update UI element
  })
  
  output$distPlot <- renderPlot({
    breaks <- seq(min(faithful$eruptions), max(faithful$eruptions), len=input$nbin+1)
    hist(faithful$eruptions, breaks=breaks, 
         xlab=gettext("Eruption time"), ylab=gettext("Frequency"), main=gettext("Old Faithful geyser"))
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("nbin", gettext("Number of bins:"), min = 2, max = 50, value = 20)
    ),
    mainPanel(plotOutput("distPlot"))
  )
)

shinyApp(ui = ui, server = server)