inst/shiny-apps/helloWorld/ui.R

In jtrecenti/cea20160329:

library(shiny)

# Define UI para a aplicação
shinyUI(fluidPage(

  # Título
  titlePanel("Olá, Shiny!"),

  # Uma coluna com um checkbox para colocar o smooth
  sidebarLayout(
    sidebarPanel(
      checkboxInput(inputId='smooth', label='Smooth?', value=FALSE)
    ),

    # Gráfico!
    mainPanel(
      plotOutput("distPlot")
    )
  )
))