| 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") | |
| ) | |
| ) | |
| )) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment