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("entwicklungs_report", HTML("Report"),
title = "Vorentwicklungs-Report als word oder pdf generieren", style = "margin:0px;"),
selectInput("report_format_type", label = "Report-Format:", choices = c("Word" = "word", "pdf" = "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 = "load"),
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 </p>"),
uiOutput("verbatim_test_result"),
actionButton("help_test_result", label = HTML("Hilfe"), width = "150")
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.