library(shiny)
library(shinythemes)
shinyUI(navbarPage("Statistical Process Measurement",
theme = shinytheme("flatly"),
tabPanel("Process Data Selection",
fluidRow(
column(10, wellPanel(
radioButtons("vara", "Variable or Attribute Process Data?",
choices = c("Variable" = "option1",
"Attribute" = "option2"),
selected = "option1"
),
conditionalPanel(
condition = "input.vara == 'option1'",
selectInput("chart", "Control Chart",
c("Shewhart X-Bar Chart, Standards Given",
"Shewhart X-Bar Chart (R), No Standards Given",
"Shewhart X-Bar Chart (s), No Standards Given",
"Shewhart X-Bar Chart (MR), No Standards Given",
"R Chart, Standards Given",
"R Chart, No Standards Given",
"s Chart, Standards Given",
"s Chart, No Standards Given",
"EWMA",
"CUSUM"
))
),
conditionalPanel(
condition = "input.vara == 'option2'",
selectInput("chart", "Control Chart",
c("p Chart, Standards Given",
"p Chart, No Standards Given",
"np Chart, Standards Given",
"np Chart, No Standards Given",
"u Chart, Standards Given",
"u Chart, No Standards Given",
"c Chart, Standards Given",
"c Chart, No Standards Given"
)
)
)
)
)
),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose file to Upload',
accept = c(
'text/csv',
'text/comma-separated-values',
'text/tab-separated-values',
'text/plain',
'.csv',
'.tsv'
)
),
tags$hr(),
checkboxInput('header', 'Header', TRUE),
radioButtons('sep', 'Separator',
c(Comma=',',
Semicolon=';',
Tab='\t'),
','),
radioButtons('quote', 'Quote',
c(None='',
'Double Quote'='"',
'Single Quote'="'"),
'"'),
tags$hr(),
p('Upload data frame with subgroup means and/or standard deviations/ranges')
),
mainPanel(
verbatimTextOutput("sum"),
fluidRow(
splitLayout(cellWidths = c("30%", "70%"),
tableOutput("table"),
plotOutput("hist")
)
)
)
)
),
tabPanel("Monitoring",
sidebarLayout(
sidebarPanel(
h4("Parameters"),
conditionalPanel(
condition = "input.chart == 'Shewhart X-Bar Chart, Standards Given'",
textInput("mu", "Mean", ""),
textInput("sd", "Sigma", "")
),
conditionalPanel(
condition = "input.chart == 'R Chart, Standards Given'",
textInput("r", "Range", "10")
),
sliderInput("l", "L", min = 0, max=5, value = 3, step = 0.01),
sliderInput("n", "Sample Size (n)", min = 0, max=25, value = 5)
),
mainPanel(
tags$p("Control Chart:"),
verbatimTextOutput("chart_type_text"),
plotOutput("plot", width = "100%", height = "400px")
)
)
),
tabPanel("Performance")
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.