R/step2UI.R

In ondri-nibs/dataprep_app: ONDRI Data Prep ShinyApp

#' @title step2UI
#'
#' @description User interface for the step #2 (Select dictionary) tab to load
#' in a data dictionary frame from the local computer.
#' @author Jedid Ahn
#' 
step2UI <- function() {
  tabItem(
    tabName = "step2",
    
    fluidRow(
      class = "selection",
      
      box(
        id = "fileSelection2",
        width = 12,
        shinyFiles::shinyFilesButton(
          id = "selectDictFile",
          label = "Select dictionary file from local computer",
          title = "Please select a dictionary csv file to analyze.",
          multiple = FALSE,
          icon = icon("table")
        ),
        verbatimTextOutput("dictFilePathOutput", placeholder = TRUE)
      )
    ),
    
    br(),
    
    fluidRow(
      box(
        width = 12,
        tags$span(class = "header", "Data frame preview:"),
        br(),
        br(),
        DT::dataTableOutput("dictDFOutput") %>%
          shinycssloaders::withSpinner(type = 7, color = "#5BC0DE")
      )
    ),
    
    fluidRow(box(
      width = 12,
      actionButton(
        inputId = "nextStep2",
        label = "Next Step",
        class = "step-button"
      )
    ))
  )
}

# [END]