uisetup.R

# contents of app.R

library(shiny)

ui <- fluidPage(
  
  # our title
  titlePanel('Wordcloud Web App'),
  
  # defining the sidebar
  sidebarLayout(
  
    # setting up our sidebar
    sidebarPanel(
   
      # our first slider
      sliderInput('ngramCount', '# of Grams', min = 1, max = 5, value = 2),
    
      hr(),
      # second slider
      sliderInput('cloudCount', '# of Words', min = 50, max = 400, value = 100),
   
    # setting up main panel
    mainPanel(
    
      # defining where our cloud will appear
      plotOutput('wordcloud')
    )
  )
)

server <- function(input, output) {

}

shinyApp(ui, server)