library("shiny")
shinyUI(
fluidPage(
titlePanel("the Emojifier!"),
br(),
wellPanel(
fluidRow(fileInput("img_file", label = "Drop an image!")),
fluidRow(align = "center", plotOutput("img", height = 250)),
fluidRow(align = "center", plotOutput("img_res", height = 140))
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.