R fortunes

server.R

library(fortunes)
n <- nrow(read.fortunes())

shinyServer(function(input, output) {
  update <- reactive({
    if (input$action > 0){
      sample(1:n, 1)
    }
  })

  output$summary <- renderPrint({
    fortune(update())
  })
})

ui.R

shinyUI(bootstrapPage(
  tagList(
    tags$head(
      tags$title("Upload Data"),
      tags$link(rel="stylesheet", type="text/css",href="style.css")
    ),
    tags$body(
      tags$h1("R fortunes:")  
    )
  ), 
#   headerPanel("R fortunes:"),
  div(class='button', actionButton("action", "Next Fortune!")),
  div(class='output', verbatimTextOutput("summary"))
))

www\style.css

div.button {
  margin: 10px 20px;
}

div.output {
  margin: 10px 20px;
  width: auto;
}

h1 {
  margin: 10px 20px;
}

pre {
  font-size: 16px;
}