inst/ui.R

In chi2labs/CATdemo: CATdemo

library(shiny)

# Define UI for slider demo application
shinyUI(fluidPage(
  
  fluidRow(
    #  Application title
    headerPanel("TAI Test Tool"),
    
    # sidebarPanel(
    #   # This is intentionally an empty object.
    #   h6(textOutput("save.results")),
    #   
    #   numericInput(inputId="myCatLength", label="Largo del test",
    #                value=10, min=8, max=36, step=1),
    #   
    #   numericInput(inputId="thetaInicial", label="Nivel de habilidad inicial",
    #                value=0, min=-3, max=3, step=0.1),
    #   
    #   numericInput(inputId="grado", label="Grado Escolar del alumno",
    #                value=3, min=3, max=6, step=1),
    #   
    #   # checkboxInput(inputId="eapCorregido", label=" EAP Corregido", value=FALSE),
    # 
    #   br(),
    #   tags$p("Seleccionar pesos de las siguientes Competencias"),
    #   
    #   numericInput(inputId="myWeigth1", label=unique(bancoItems$Group)[1], value=1),
    #   numericInput(inputId="myWeigth2", label=unique(bancoItems$Group)[2], value=1),
    #   numericInput(inputId="myWeigth3", label=unique(bancoItems$Group)[3], value=1)
    # 
    # ),
    # 
    
    # Show a table summarizing the values entered
    mainPanel(
      # This is intentionally an empty object.
      h6(textOutput("save.results")),
      # Main Action is where most everything is happenning in the
      # object (where the welcome message, survey, and results appear)
      uiOutput("MainAction"),
      # This displays the action putton Next.
      actionButton("Click.Counter", "Next")
    )
  )
  
))