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(
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.