inst/apps/leistungstest_variable/auswertung/ui_dateneingabe.R

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

splitLayout(

  cellWidths = c("35%", "65%"),

  # Test-Parameter --------------
  verticalLayout(
    div( class="well  well-sm", style = "margin: 0px;",
         HTML("<p style='color:blue;text-align:center'>  'Design'-Festlegung<br/>durch Entwicklung</p>"),
         numericInput("spec", label = HTML("Spezifikationsgrenze"), value = 0),
         selectInput("spec_type", label = "", choices = c("Untere Grenze" = "lsl", "Obere Grenze" = "usl"))
    ),
    div( class="well  well-sm", style = "margin: 0px;",
         HTML("<p style='color:blue;text-align:center'> Anforderungen aus<br/>der Risiko-Analyse </p>"),
         numericInput("p_min", label = HTML("minimale i.o.-Rate des</br>Produktionsprozesses"), value = 99),
         numericInput("power", label = HTML("Test-Power:"), value = 75),
         actionButton("help_test_params", label = HTML("Hilfe"), width = "100%")
    ),
    div( class="well  well-sm", style = "margin: 0px;",
         downloadButton("test_report", "Test-Bericht", title = "Test-Bericht als word oder pdf generieren."),
         selectInput("report_format_type", label = "Report-Format:", choices = c("Word-Dokument" = "word", "pdf-Dokument" = "pdf"))
    )
  ),

  # Messwerttabelle ----------------
  verticalLayout(

    div( class="well  well-sm", style = "margin: 0px;", style = "margin: 0px;", style = "margin: 0px;",

         #HTML("<p style='color:blue;text-align:center'> Eingabe Messwerte </p>"),

         splitLayout(
           textInput("variable_name", label = "Variablen-Bezeichnung", value = ""),
           textInput("variable_unit", label = "Variablen-Einheit", value = "")
         ),

         rhandsontable::rHandsontableOutput("raw_data"),

         splitLayout(
           cellWidths = c("40%", "60%"),
           verticalLayout(
             tags$br(),
             downloadButton(
               outputId = 'save_data_as_rds', label = 'save',
               title = HTML("Daten und Kommentare speichern. [file-suffix: .rds]")
             )
           ),
           span(fileInput("load_rds_data", label = "", buttonLabel = "Laden"),
                title = HTML("Gespeicherte Daten und Kommentare laden."),
                style = "padding: 0px; margin: 0px;")
         ),

         div( class="well  well-sm", style = "margin: 0px;",
              HTML("<p style='color:blue;text-align:center'> Statistiken und Test-Ergebnis </p>"),
              uiOutput("verbatim_test_result"),
              actionButton("help_test_result", label = HTML("Hilfe"), width = "100%")
         )

    )
  )
)