inst/appdir/ui_dataInput1.R

In boutroslab/HTSvis: Visualization and analysis of arrayed high-thorughput screens (HTS)

#file uploader ui
fixedRow(
  column( 4,
                  fileInput('file1', 'Choose file to upload',
                            accept = c(
                              'text/csv',
                              'text/comma-separated-values',
                              'text/plain',
                              '.csv',
                              '.xls',
                              '.xlsx',
                              '.Rdata')
                  )
  ),
  column(1,
                   helpPopup("Help: Data upload",
                             id="helpUpload",
                             content = "Select a data table to upload.
                             Supported file formats are: .txt, .csv, .xlsx and .RData.
                             Delimited tables should be uniformly separated
                            by tab, comma, semicolon or space and all columns
                            should be named.
                            Detailed information concerning the data
                             structure requirements can be found on the help page.",
                             iconClass = "fa fa-question"),
                      tags$style(
                          type='text/css',
                          "#helpUpload{ margin-top: 25px;
                                        margin-left:-25px;}")
           ),
  column(  7,
           htmlOutput("dataInfo"),
           tags$style(HTML("#dataInfo {
                           margin-top: 25px;}"))
    )
)