R/ui_modulo_datos.R

In tomicapretto/cemrepboot: What the Package Does (One Line, Title Case)

datosUI = function(id) {
  tagList(
    fluidRow(
      shinydashboard::tabBox(
        height = "auto",
        width = 12,
        title = "",
        tabPanel(
          title = "Cargar datos",
          fluidRow(
            colInput(
              colwidth = 6,
              inputFun = selectInput,
              inputId = NS(id, "encuesta"),
              label = "Encuesta",
              choices = ENCUESTAS,
            ),
            colInput(
              colwidth = 6,
              inputFun = radioButtons,
              inputId = NS(id, "fuente"),
              label = "Fuente de los datos",
              selected = "remoto",
              choices =  c(
                "Obtener desde INDEC" = "remoto",
                "Subir archivo local" = "local"
              )
            )
          ),
          shinyjs::hidden(
            tags$div(
              id = NS(id, "inputs_local"),
              fluidRow(
                colInput(
                  colwidth = 6,
                  inputFun = fileInput,
                  inputId = NS(id, "archivo_base"),
                  label = "Base de datos",
                  multiple = FALSE,
                  accept = c(
                    "text/csv",
                    "text/comma-separated-values,text/plain",
                    ".csv"
                  )
                ),
                colInput(
                  colwidth = 6,
                  inputFun = fileInput,
                  inputId = NS(id, "archivo_replicas"),
                  label = "Base de replicas",
                  multiple = FALSE,
                  accept = c(
                    "text/csv",
                    "text/comma-separated-values,text/plain",
                    ".csv"
                  )
                )
              ),
              fluidRow(
                colInput(
                  colwidth = 3,
                  inputFun = textInput,
                  inputId = NS(id, "separador_base"),
                  label = "Separador de columnas"
                ),
                colInput(
                  colwidth = 3,
                  inputFun = textInput,
                  inputId = NS(id, "decimal_base"),
                  label = "Separador decimal"
                ),
                colInput(
                  colwidth = 3,
                  inputFun = textInput,
                  inputId = NS(id, "separador_replicas"),
                  label = "Separador de columnas"
                ),
                colInput(
                  colwidth = 3,
                  inputFun = textInput,
                  inputId = NS(id, "decimal_replicas"),
                  label = "Separador decimal"
                )
              )
            )
          ),
          fluidRow(
            colInput(
              colwidth = 3,
              inputFun = actionButton,
              inputId = NS(id, "btn_obtener_datos"),
              label = "Descargar datos",
              width = "100%",
              style = "margin-top: 5px;"
            ),
            column(
              width = 3,
              fluidRow(
                downloadLink(
                  outputId = NS(id, "descargar_manual"),
                  label = "Descargar manual de la encuesta"
                )
              ),
              fluidRow(
                downloadLink(
                  outputId = NS(id, "descargar_nota"),
                  label = "Descargar nota tecnica"
                )
              ),
              style = "text-align:center;"
            )
          )
        )
      )
    )
  )
}