inst/INEGI/Pack_Experto/ui.R

In loerasg/INEGI: Procesos INEGI

library(shinythemes)

shinyUI(fluidPage(titlePanel("Defunciones"),theme = shinytheme("cerulean"),#useShinyjs(),
  sidebarLayout(
    
    
    sidebarPanel(
      #h5("Códigos sugeridos por el codificador experto."),
      
      #uiOutput("Et3_Num_reg"),
      uiOutput("Et3_Causa"),
      
      checkboxGroupInput("Cod_Cor", "Radio buttons:",
                         c("label 1" = "option1",
                           #"label 2" = "option2",
                           "label 3" = "option3",
                           "label 4" = "option4")#,
                         #selected = ""
      ),
      textInput("Et3_inText",  "Código:  ", value = ""),
      
      singleton(
        tags$head(tags$script(src = "message-handler.js"))
      ),
      
      actionButton("Bot_RAM", "Guardar"),
      actionButton("Bot_Ant", "Anterior"),
      actionButton("Bot_Sig", "Siguiente"),
      actionButton("Bot_Guar", "Grabar"),
      
      h5("Código seleccionado:"),
      verbatimTextOutput("E3COD"),
      verbatimTextOutput("E3CapTex"),
      #wellPanel(h5("COD_SEL:"),h2(verbatimTextOutput("E3COD"))),
      checkboxGroupInput("E3_Cod_Int", "Consulta de código :",
                         c("Internet" = "intr",
                           "Base revisión" = "tabl",
                           "Tabla de límite" = "tabl_Codi"), inline = TRUE
                         #"label 3" = "option3",
                         #"label 4" = "option4"
                         #,
                         #selected = ""
      ),
      h4(actionButton("E3_sal", "Salir"),align = "right")
      
      
    ),
    
    # Show a plot of the generated distribution
    mainPanel(
      fluidPage(
        
        fluidRow(
          column(width = 4,verbatimTextOutput("E3DatIde")),
          column(width = 4,verbatimTextOutput("E3Folea1")),
          column(width = 4,verbatimTextOutput("E3Folea2"))
        ),
        fluidRow(
          column(width = 1, h3("  I"), 
                 h4(" a)",align = "right")),
          column(width = 7, h4("Causa de la defunción"),
                 verbatimTextOutput("E3Desc1")),
          column(width = 2,h4("Duración"),
                 verbatimTextOutput("E3DURATION1")),
          column(width = 2,h4("CIE-10",align = "center"),
                 verbatimTextOutput("E3t_CoA"))
        ),
        fluidRow(column(width = 1,
                        h4(" b)",align = "right")),
          column(width = 7,
                 verbatimTextOutput("E3Desc2")),
          column(width = 2,
                 verbatimTextOutput("E3DURATION2")),
          column(width = 2,
                 verbatimTextOutput("E3t_CoB"))
        ),
        fluidRow(column(width = 1,
                        h4(" c)",align = "right")),
          column(width = 7,
                 verbatimTextOutput("E3Desc3")),
          column(width = 2,
                 verbatimTextOutput("E3DURATION3")),
          column(width = 2,
                 verbatimTextOutput("E3t_CoC"))
        ),
        fluidRow(column(width = 1,
                        h4(" d)",align = "right")),
          column(width = 7,
                 verbatimTextOutput("E3Desc4")),
          column(width = 2,
                 verbatimTextOutput("E3DURATION4")),
          column(width = 2,
                 verbatimTextOutput("E3t_CoD"))
        ),
        tags$br(),
        fluidRow(column(width = 1,
                        h4(" II")),
          column(width = 7,
                 verbatimTextOutput("E3Desc5")),
          column(width = 2,
                 verbatimTextOutput("E3DURATION5")),
          column(width = 2,
                 verbatimTextOutput("E3t_CoI")
          )
        ),
       
        tags$hr(),
        fluidRow(
          column(3,textInput("Et3_Reg_Tex",  "Registro número:", value = "1")),#column(3,uiOutput("Et3_Num_reg")),
          column(2,actionButton("E3_Buscar_Reg", "Buscar"),align = "center"),
          column(5,verbatimTextOutput("E3Nul"),align = "center"),
          column(2,actionButton("E3Bot_Buscar", "Buscar pendiente"),align = "center")
        )
        #DT::dataTableOutput("Etapa3Tabla1", width = 900)
      )#fluidPage
      
    ),#mainPanel
    position = "right"
  ),#sidebarLayout
  conditionalPanel("input.E3_Cod_Int == 'intr'",
                   tags$iframe(src="https://eciemaps.mspsi.es/ecieMaps/browser/index_10_2008.html", width = 1200, height=700)#, width = 1200, height=600
                   
                   #tags$iframe(src="https://eciemaps.mspsi.es/ecieMaps/browser/index_10_2008.html", width = 1200, height=600)
                   #tags$iframe(src=paste0("https://eciemaps.mspsi.es/ecieMaps/browser/index_10_2008.html#search=",verbatimTextOutput("E3Link")), width = 1100, height=600) 
                   #cat("Text",verbatimTextOutput("E3Link"))
  ),
  conditionalPanel("input.E3_Cod_Int == 'tabl'",
                   dataTableOutput("Etapa3Tabla1")#, width = 900
  ),
  conditionalPanel("input.E3_Cod_Int == 'tabl_Codi'",
                   dataTableOutput("Etapa3Tabla2")#, width = 900
  )
  
))