R/cohort_upload_selection_ui.R

In CRI-iAtlas/iatlas.modules2: iAatlas Modules2

cohort_upload_selection_ui <- function(id) {

  ns <- shiny::NS(id)

  shiny::tagList(
    shiny::fluidRow(
      width = 12,
      iatlas.modules::optionsBox(
        width = 12,
        shiny::tags$head(
          shiny::tags$script(src = "message-handler.js")
        ),
        shiny::actionButton(
          ns("filehelp"),
          "Formatting instructions",
          icon = shiny::icon("info-circle")
        ),
        shiny::hr(),
        shiny::fileInput(
          ns("file"),
          "Choose CSV File",
          multiple = FALSE,
          accept = c(
            "text/csv",
            "text/comma-separated-values,text/plain",
            ".csv"
          )
        )
      )
    ),
    shiny::fluidRow(
      iatlas.modules::messageBox(
        width = 12,
        shiny::p(
          "After uploading your file, the table below will show your defined groups."
        ),
        DT::dataTableOutput(ns("dt"))
      )
    ),
    shiny::fluidRow(
      iatlas.modules::optionsBox(
        width = 12,
        shiny::uiOutput(ns("user_group_selection"))
      )
    )
  )
}