R/ui.R

In cofad: Contrast Analyses for Factorial Designs

options(shiny.sanitize.errors = FALSE) # (handle errors manually)
#' @importFrom shinydashboard dashboardPage dashboardHeader dashboardSidebar
#'   dashboardBody box
#' @importFrom shinyjs useShinyjs hidden
#' @noRd
myui <- function(request) {
  shinyUI(
    shinydashboard::dashboardPage(
      title = "cofad-app",
      skin = "yellow",
      shinydashboard::dashboardHeader(
        title = "cofad-app"),
      # Sidebar-----------------------------------------------------------------
      shinydashboard::dashboardSidebar(
        tags$head(tags$style(HTML(".sidebar {padding-left: 8px;}"))),
        # load data
        h4("1. Load data"),
        uiOutput("file_area"),
        h6("Currently, you can only load .csv files and .sav (SPSS) files."),
        HTML(
          paste(
            "<footer><font size='1'><p style='color:grey'>cofad-app &copy;",
            "2021 Johannes Titz & Markus Burkhardt, license AGPL",
            "</p></font></footer>",
            sep = ""
          )
        )
      ),
      shinydashboard::dashboardBody(
        tags$script(
          HTML("$(document).on('shiny:sessioninitialized', function(event) {
  var isSafari = navigator.vendor && navigator.vendor.indexOf('Apple') > -1 &&
               navigator.userAgent &&
               navigator.userAgent.indexOf('CriOS') == -1 &&
               navigator.userAgent.indexOf('FxiOS') == -1;
  Shiny.onInputChange('isSafari', isSafari);
});")),
        # Model spec and model display -----------------------------------------
        fluidRow(
          shinyjs::useShinyjs(),
          div(
            id = "help",
            shinydashboard::box(
              title = "Help",
              status = "primary",
              HTML(paste(readLines(system.file("extdata", "intro.html",
                                               package = "cofad")),
                         collapse = "")
              )
            )
          ),
          shinyjs::hidden(
            div(
              id = "create_model",
              shinydashboard::box(
                title = "2. Create model",
                status = "primary", collapsible = T,
                width = 6,
                uiOutput("variables"),
              ),
            )
          ),
          # Output  ------------------------------------------------------------
          shinyjs::hidden(
            div(
              id = "output_region",
              shinydashboard::box(
                title = "3. Result",
                status = "primary",
                width = 6,
                uiOutput("table_region")
              )
            )
          )
        )
      )
    )
  )
}