UI within renderUI stage 1

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

## UI STAGE 1 CODE #
# begin a sidebar ui page
shiny::sidebarLayout(
  shiny::sidebarPanel(
    title = "Image and Analysis Selection",
    # ask for file input from user
    shiny::fileInput(
      inputId = "file1",
      label   = "Input Image",
      accept  = c(
        "image/png",
        "image/jpeg"
      )
    ),
    # provide dropdown menu to select analysis type
    shiny::selectInput(
      inputId = "analysis_type",
      label   = "Analysis Type",
      choices = c(  # key (seen from user): value (for code)
        "Select Analysis"     = "analysis_select",
        "Facial Detection"    = "FACE_DETECTION",
        "Label Detection"     = "LABEL_DETECTION",
        "Landmark Detection"  = "LANDMARK_DETECTION",
        "Logo Detection"      = "LOGO_DETECTION",
        "Object Localization" = "OBJECT_LOCALIZATION",
        "Text Detection"      = "TEXT_DETECTION"
        )
      ),
      # Allow for user to choose when to analyze with button
      shiny::actionButton("analyze", "Analyze!"),
      br(),
      # If file not uploaded or analysis type not selected, warning
      values$warning_inputs
    ),
    shiny::mainPanel(
      # do not need anything in here
    )
)