inst/shiny/sil_en.R

launch.browser <- function(url) {
  url <- sprintf('%s/?lang=%s',url, 'en')
  invisible(.Call("rs_shinyviewer", url, getwd(), 3))
}
#
library("shiny")
runApp(system.file('shiny', 'silhouette', package='gettext'), launch.browser=launch.browser)
sigbertklinke/gettext documentation built on Feb. 17, 2020, 10:37 a.m.