R/uiSimple.R

In OwnYourData/oydapp:

uiSimple <- function(id){
        ns <- NS(id)
        shiny::addResourcePath(
                prefix = 'img',
                directoryPath = system.file('img',
                                            package='oydapp'))
        tagList(
                # Code for initial "Wait"-Animation
                # tags$head(tags$script(src='http://cdnjs.cloudflare.com/ajax/libs/modernizr/2.8.2/modernizr.js')),
                # tags$head(tags$link(rel='stylesheet', type='text/css', href='init_anim.css')),
                # tags$div(class='init-animation'),
                # uiInit(ns),
                rintrojs::introjsUI(),
                shinyjs::useShinyjs(),
                shinyStore::initStore(ns("store"), "oydStore"),
                tags$script('setInterval(avoidIdle, 5000);
                            function avoidIdle(){
                            Shiny.onInputChange("myData", 0) }'
                ),
                tags$script(HTML('var userLang = navigator.languages && navigator.languages[0] ||
                                 navigator.language ||
                                 navigator.userLanguage;
                                 $(document).on("shiny:connected", function() {
                                 Shiny.onInputChange("oyd-userLang", userLang.substr(0,2));
                                 });')),
                tags$script(paste0(
                        # JavaScript to hide initial "Wait"-Animation
                        'Shiny.addCustomMessageHandler("finishInit", function(x) {
                        $(".init-animation").fadeOut("slow");
                        }); ',
                        "$(window).load(function(){
                        $('button:contains(\"Close\")').attr(\"id\", \"configDialogCloseBtn\");
                        });")),
                tags$script(
                        'Shiny.addCustomMessageHandler("setTranslation", function(x) {
                        myArray = x.split(",");
                        $("#" + myArray[0]).html(myArray[1]);
                        })'
                ),
                tags$script(
                        '$(window).on("shown.bs.modal", function() {
                        $("#shiny-modal").keyup(function(event) {
                        if (event.keyCode == 13) {
                        $("#oyd-decryptBtn").click();
                        $("#oyd-decryptConfigBtn").click();
                        }
                        });
                        });'
                ),
                uiConfigDialog(ns),
                fluidPage(
                        id=ns('mainPage'),
                        title=paste0(appTitle, ' | OwnYourData'),
                        titlePanel(fluidRow(
                                tags$div(" ", class="col-xs-1"),
                                tags$div(
                                        uiOutput(ns('hdrPiaLinkImg'),
                                                 inline=TRUE),
                                        class="col-xs-1"),
                                tags$div(
                                        uiOutput(ns('hdrTitle'),
                                                 inline=TRUE),
                                        class="col-xs-8"),
                                tags$div(
                                        span(actionLink(
                                                ns('uiSimpleShowConfig'),
                                                '', icon = icon("cog")),
                                             style="float:right;"),
                                        class="col-xs-1")
                        )),
                        fluidRow(column(1),
                                 column(10,shinyBS::bsAlert('piaStatus'))),
                        uiBody(ns),
                        fluidRow(column(1),column(10,
                        hr(),
                        span(span(div(style='display:flex; width:200px; margin-top:-8px;',
                                      div(style='margin:8px;', uiOutput(ns('ctrlTrnsl_langLabel'))),
                                      selectInput(ns('lang'), label = NULL, width = '160px',
                                                  choices = list("Deutsch" = 'de', "English" = 'en'),
                                                  selected = 'de')),
                                  style="float:right;"),
                             span(tagList(span(uiOutput(ns('ctrlTrnsl_createdBy'), inline = TRUE),
                                               class = 'hidden-xs'),
                                          a("OwnYourData.eu", href='https://www.ownyourdata.eu'))))))
                )
        )
}