inst/shiny/language/app.R

In leonawicz/shinyaccess: Web Accessibility in Shiny

library(shiny)

ui <- fluidPage(
  h3("App title"),
  includeScript(system.file("inst/resources/access.js", package = "shinyaccess"))
)

server <- function(input, output, session) {
  set_lang(session)
}

shinyApp(ui, server)