reviews_truther_ui.R

library(shiny)

shinyUI(fluidPage(

  # Application title
  titlePanel("Verify Auto-tagged dresses from Instagram"),

  # Sidebar with a slider input for number of bins
  sidebarLayout(
    sidebarPanel(
      textInput("email", "Your email", placeholder = "So that we can attribute the correction to you"),

      htmlOutput("instagram"),
      radioButtons("yesorno", "Accept tag?",
                   c("Not a dress", "First", "Second", "Third", "None"), selected = "None"),
      actionButton("submit", "Submit"),
      helpText("Click the photo to see the original Instagram"),
      helpText("DeepDress AI might not know about some newer dresses. Esp dresses with <= 10 photo reviews"),
      helpText("The AI was written to match ANY PHOTO to our dresses. It does not know if what it is seeing is not a dress."),
      helpText("FAQ: Use 'Not a dress' if it is a Handbag, jacket, car or flower.. anything that's not a dress.")
    ),

    # Show a plot of the generated distribution
    mainPanel(
      htmlOutput("deepDress"),
      hr(),
      h4("Match probability"),
      textOutput("deepDressProb")
    )
  )
))