inst/INEGI/Defun/General/IU_Etapa4.R

sidebarLayout(
  sidebarPanel(
    conditionalPanel(
      'input.Etap04 === "Datos"',
      fileInput('Etapa4file1', 'Archivo de códigos (en dbf)',
                accept=c('.dbf')),
      helpText('Elegir las variables a utilizar'),
      uiOutput("Etap4CausaA"),
      uiOutput("Etap4Causa1"),
      uiOutput("Etap4Causa2"),
      uiOutput("Etap4CausaF"),
      helpText('Se requiere el tamaño total de la población, usar archivo de la Etapa 1 sección Resumen'),
      fileInput('Etapa4file2', 'Archivo de datos (texto o csv)',
                accept=c('text/csv',
                         'text/comma-separated-values,text/plain', 
                         '.csv')),
      
      checkboxInput('header', 'Encabezado', TRUE),
      radioButtons('sep', 'Separado por:',
                   c(Coma=',',
                     Puntoycoma=';',
                     Tabulador='\t'),
                   ','),
      radioButtons('quote', 'Quote',
                   c(None='',
                     'Double Quote'='"',
                     'Single Quote'="'"),
                   '"'),
      uiOutput("Etap4Pobla"),
      tags$hr()
      
    ),
    ####
    conditionalPanel(
      'input.Etap04 === "Revisión"',
      ###
      helpText('Presionar evaluar para iniciar el proceso de obtención de casos a revisión'),
      actionButton("E4updat1", "Evaluar"),
      tags$hr(),
      h6("Registros para revisión:"),
      verbatimTextOutput("E4RegRev"),
      tags$hr(),
      checkboxInput("E4RevGua","Solo los Registros para revisión",value = T),
      downloadButton('E4DescarRev', 'Guardar'),
      tags$hr()
    ),
    ####
    conditionalPanel(
      'input.Etap04 === "Tablas"',
      ####
      helpText('Elegir la tabla que decea ver'),
      tags$hr(),
      radioButtons("E4Tab", "Tipo de tabla:",
                   c("Totales por caso" = "Caso",
                     "Errores a 3 Dígitos" = "Er3D",
                     "Errores a 4 Dígitos" = "Er4D",
                     "Caso 4 Mismo Capítulo" = "C4MC",
                     "Caso 4 Diferente Capítulo" = "C4DF"
                   )),
      conditionalPanel(condition = 'input.E4Tab === "Caso"',
                       helpText('Si desea guardar la tabla de totales por caso:'),
                       downloadButton('E4DescarCaso', 'Guardar'),
                       tags$hr()
      ),
      conditionalPanel(condition = 'input.E4Tab === "Er3D"',
                       helpText('Si desea guardar la tabla de Errores a 3 Dígitos:'),
                       downloadButton('E4DescarEr3D', 'Guardar'),
                       tags$hr()             
      ),
      conditionalPanel(condition = 'input.E4Tab === "Er4D"',
                       helpText('Si desea guardar la tabla de Errores a 4 Dígitos:'),
                       downloadButton('E4DescarEr4D', 'Guardar'),
                       tags$hr()               
      ),
      conditionalPanel(condition = 'input.E4Tab === "C4MC"',
                       numericInput("E4nMis", "Mínimo de Errores:", 1),
                       helpText('Si desea guardar frecuencias para mismo capítulo:'),
                       downloadButton('E4DescarC4MC', 'Guardar'),
                       tags$hr()               
      ),
      conditionalPanel(condition = 'input.E4Tab === "C4DF"',
                       numericInput("E4nDif", "Mínimo de Errores:", 1),
                       helpText('Si desea guardar frecuencias para diferente capítulo:'),
                       downloadButton('E4DescarC4DF', 'Guardar'),
                       tags$hr()
      ),
      tags$hr()
    ),
    ####
    
    #####
    conditionalPanel(
      'input.Etap04 === "Limites"',
      #####
      helpText('Intervalos de confianza'),
      actionButton("E4Inter", "Calcular"),
      helpText('Elegir la tabla que decea ver'),
      tags$hr(),
      radioButtons("E4Lim", "Límites o gráficos que desea mostrar:",
                   c("Intervalos de confianza a 3 dígitos" = "IC3D",
                     "Intervalos de confianza a 4 dígitos" = "IC4D",
                     "Gráfico a 3 Dígitos" = "Gr3D",
                     "Gráfico a 4 Dígitos" = "Gr4D",
                     "Tabla de ponderados a 3 dígitos" = "Ta3D"
                   )),
      conditionalPanel(condition = 'input.E4Lim === "IC3D"',
                       helpText('Guardar intervalos de confianza a 3 dígitos:'),
                       sliderInput(inputId = "E4ErrorI3",
                                   label = "Valor para Error (alfa):",
                                   min = .01, max = .2, value = .05, step = 0.01),
                       downloadButton('DescarE4Inter3', 'Guardar'),
                       tags$hr()
      ),
      conditionalPanel(condition = 'input.E4Lim === "IC4D"',
                       helpText('Guardar intervalos de confianza a 4 dígitos:'),
                       sliderInput(inputId = "E4ErrorI4",
                                   label = "Valor para Error (alfa):",
                                   min = .01, max = .2, value = .05, step = 0.01),
                       downloadButton('DescarE4Inter4', 'Guardar'),
                       tags$hr()             
      ),
      conditionalPanel(condition = 'input.E4Lim === "Gr3D"',
                       helpText('Si desea guardar la Gráfico a 3 Dígitos:'),
                       uiOutput("Etap4Int3"),
                       tags$hr()               
      ),
      conditionalPanel(condition = 'input.E4Lim === "Gr4D"',
                       helpText('Si desea guardar la Gráfico a 4 Dígitos:'),
                       uiOutput("Etap4Int4"),
                       tags$hr()               
      ),
      conditionalPanel(condition = 'input.E4Lim === "Ta3D"',
                       helpText('Si desea guardar la Tabla a 3 Dígitos:'),
                       #uiOutput("Etap4Int4"),
                       tags$hr()               
      ),
      tags$hr(),
      radioButtons('format_2', 'Formato del documento', c('HTML', 'Word'),
                   inline = TRUE),
      downloadButton('DescarE4Repot', 'Reporte 2')
      
    )
    
  ),
  ###
  mainPanel(
    tabsetPanel(
      id = 'Etap04',
      ###
      tabPanel("Datos",    
               h4("Tabla de Datos"),
               dataTableOutput('Etapa4Tabla1'),
               tags$hr(),
               tableOutput('Etapa4TablaTot')
               
      ),
      
      tabPanel("Revisión",
               h4("Tabla de Revisión"),
               dataTableOutput('Etapa4Tabla2')
      ),
      
      tabPanel("Tablas",
               conditionalPanel(condition = 'input.E4Tab === "Caso"',
                                h4("Tabla de Totales por Caso"),
                                tableOutput('Etapa4Tabla31')
                                #dataTableOutput('Etapa4Tabla34')
               ),
               conditionalPanel(condition = 'input.E4Tab === "Er3D"',
                                h4("Tabla de Errores a 3 Dígitos"),
                                tableOutput('Etapa4Tabla32')
               ),
               conditionalPanel(condition = 'input.E4Tab === "Er4D"',
                                h4("Tabla de Errores a 4 Dígitos"),
                                tableOutput('Etapa4Tabla33')
               ),
               conditionalPanel(condition = 'input.E4Tab === "C4MC"',
                                h4("Frecuencias para mismo capítulo"),
                                tableOutput('Etapa4TablaMis')
               ),
               conditionalPanel(condition = 'input.E4Tab === "C4DF"',
                                h4("Frecuencias para diferente capítulo"),
                                tableOutput('Etapa4TablaDif')
               )
      ),
      
      
      
      tabPanel("Limites",
               conditionalPanel(condition = 'input.E4Lim === "IC3D"',
                                h4("Intervalos de confianza a 3 dígitos"),
                                tableOutput('Etapa4Inter3')
               ),
               conditionalPanel(condition = 'input.E4Lim === "IC4D"',
                                h4("Intervalos de confianza a 4 dígitos"),
                                tableOutput('Etapa4Inter4')
               ),
               conditionalPanel(condition = 'input.E4Lim === "Gr3D"',
                                h4("Gráfico a 3 Dígitos"),
                                plotOutput('E4GI3')
               ),
               conditionalPanel(condition = 'input.E4Lim === "Gr4D"',
                                h4("Gráfico a 4 Dígitos"),
                                plotOutput('E4GI4')
               ),
               conditionalPanel(condition = 'input.E4Lim === "Ta3D"',
                                h4("Tabla de ponderados a 3 dígitos"),
                                plotOutput('Etapa4TabPon3')
                                #dataTableOutput('Etapa4Prueba')
                                
               )
               
      )#tabPanel("Limites"
      
    )#tabsetPanel(id = 'Etap04'
  )#mainPanel(
)#sidebarLayout(

Try the Sofi package in your browser

Any scripts or data that you put into this service are public.

Sofi documentation built on May 2, 2019, 12:53 p.m.