inst/apps/leistungstest_variable/ui.R

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

# leistungstest variable

shinyUI(fluidPage(

  titlePanel(title = "Design-Verifikation für variable Leistunsmerkmale",
             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
                ),

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

))