Skip to content

Instantly share code, notes, and snippets.

@sanealytics
Created September 9, 2016 04:30
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save sanealytics/43834c650faaac01cce697e92ac37043 to your computer and use it in GitHub Desktop.
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