Nothing
shinyUI(pageWithSidebar(
headerPanel('Item model explorer'),
sidebarPanel(
selectInput('model', 'Item Model:', c("dichotomous", "graded", "nominal")),
conditionalPanel(
condition = "input.model != 'dichotomous'",
sliderInput("outcomes", "Outcomes:", min=2, max=20, value=5)),
conditionalPanel(
condition = "input.model == 'nominal'",
selectInput("nominalTa", "T.a matrix:", c("trend", "id")),
selectInput("nominalTc", "T.c matrix:", c("trend", "id", "partial credit"))),
actionButton("drawNewParametersAction", label = "Draw new parameters"),
checkboxInput("showParameters", label = "Show/Edit parameters", value = TRUE),
conditionalPanel(
condition = "input.showParameters",
hr(),
selectInput('editPar', 'Edit Parameter:', 'a'),
sliderInput('editParValue', "Parameter Value:", min=-5, max=5, value=0, step=.01, ticks=FALSE),
fluidRow(actionButton("setParValue0", label = "Set 0"),
actionButton("setParValue1", label = "Set 1"),
actionButton("setAllValue0", label = "Set all 0")),
hr(),
tableOutput("parView")
)
),
mainPanel(
plotOutput('plot1'),
plotOutput('info')
)
))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.