inst/shiny/berlin_t/ui.R

#jQuery <- includeScript("http://code.jquery.com/jquery-2.1.3.js")
exists_ga <- file.exists("tools/google-analytics.js")

if (exists_ga) {
googleAnalytics <- includeScript("tools/google-analytics.js")
}

shinyUI(
  fluidPage(
    #tags$head(jQuery),
    if (exists_ga) tags$head(googleAnalytics),
    uiOutput("mainPage")
  )
)
KWB-R/aquanes.report documentation built on Sept. 10, 2019, 8:04 a.m.