inst/apps/Design-Verifikation_v0.1.1/auswertung/ui_dateneingabe.R

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%")
    )
  ),

  # 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 = 'speichern',
               title = HTML("Daten und eingegebene Parameter speichern. [file-suffix: .rds]")
             )
           ),
           span(fileInput("load_rds_data", label = "", buttonLabel = "Laden"),
                title = HTML("Gespeicherte Versuchsdaten 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 = "150"),
              downloadButton("test_report", "Test-Report", title = "Test-Report-Template als .docx generieren")
         )

    )
  )
)
stephanGit/leistungstests documentation built on June 13, 2018, 8:24 p.m.