inst/apps/samplesize_determination_variable/ui.R

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

# sample size-hint-variable

shinyUI(fluidPage(

  #shinyjs::useShinyjs(),  # Include shinyjs

  titlePanel(title = "Stichprobengrößen-Bestimmung für variable Leistungsmerkmale",
             windowTitle = "Desgin-Verifikation (v0.2.1)"),


  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
                )
    )
  )

))