UI code for stage 2 within renderUI for shiny vision project

shiny-vision-server-stage-2-ui.R

# stage 2 within our renderUI function
shiny::fluidPage(
  shiny::tagList(
    # Row 1: our analyzed image
    shiny::fluidRow(
      column(8, align = "center", 
        shinycssloaders::withSpinner(  # Spinner loading bar
          imageOutput("picture2"),  # Outputted Image
          color = '#999999'
        )
      )
    ),
    br(),
    br(),
    # Row 2: our table results
    shiny::fluidRow(
      column(8, align = "center",
        shinydashboard::box(
          width=12, 
          title = "Analysis Results",
          solidHeader = TRUE,
          DT::dataTableOutput("results"),  # Outputted table
          collapsible = TRUE,
          collapsed = FALSE,
          status = "primary"
        )
      )
    ),
    br(),
    br(),
    # Row three: our restart button
    shiny::fluidRow(
      column(8, align = "center",
        shiny::actionButton("reset", "Restart") 
      )
    )
  )
)