inst/apps/Design-Verifikation_v0.1.1/ui.R

In stephanGit/leistungstests: Supplies Functions to calculate 'leistungstests'

shinyUI(fluidPage(

  #shinyjs::useShinyjs(),  # Include shinyjs

  titlePanel(title = " ", windowTitle = "Desgin-Verifikation (v0.1.1)"),

  tabsetPanel(

    tabPanel("Variables Leistungsmerkmal",

             splitLayout(
               cellWidths = c("40%", "60%"),

               # VERSUCHSDATEN EINGABE ---------------
               source(file.path("auswertung", "ui_dateneingabe.R"), local = TRUE, encoding = "UTF-8")$value,

               # DATA VIEWS -------------
               tabsetPanel(id = "ostit_data_views",

                           tabPanel("Messdaten-Plot",
                                    source(file.path("auswertung", "ui_messwert_plot.R"), local = TRUE, encoding = "UTF-8")$value
                           ),

                           tabPanel("qq-Plot",
                                    source(file.path("qq_plot", "ui_qq_plot.R"), local = TRUE, encoding = "UTF-8")$value
                           ),

                           tabPanel("Entscheidungshilfe Stichprobengroeße",
                                    source(file.path("design_aid", "ui_design_aid.R"), local = TRUE, encoding = "UTF-8")$value
                           ),
                           # EINGABE DOKUMENTATION ------
                           tabPanel("Dokumentation",
                                    source(file.path("dokumentation", "ui_dokumentation.R"), local = TRUE, encoding = "UTF-8")$value
                           )
               )
             )
    ),

    tabPanel("Attributives Leistungsmerkmal",
             source(file.path("attributiv", "ui_attributiv.R"), local = TRUE, encoding = "UTF-8")$value
    )
  )
))