inst/shiny/ui-tab-finish.R

In nasqar/SeuratWizard: User Interface to Seurat (Single Cell) in R Shiny

tabItem(tabName = "finishTab",
        fluidRow(column(
          12,
          h3(strong("Download R Object")),
          hr(),
          tags$div(
            class = "BoxArea2",

            p(
              "You can save the object at this point so that it can easily be loaded back in R for further analysis & exploration without having to rerun the computationally intensive steps performed above, or easily shared with collaborators."
            ),

            p("It is also recommended that you keep it as a reference."),
            p("Note: generating/saving seurat object might take a long time. Depending on how big the data set is, the size of the object might be a few GBs"),


            column(12,
                   column(
                     6,
                     actionButton('generateSeuratFile', 'Generate Seurat Robj', class = "button button-3d button-block button-pill button-royal button-large")
                   ),
                   column(
                     6,
                     conditionalPanel(
                       "output.seuratFileExists",
                       downloadButton('downloadRObj', 'Download Seurat Obj', class = "button button-3d button-block button-pill button-action button-large")
                     )
                   )
                   )
            ,
            div(style = "clear:both;")

          )
        )))