jrShiny: R Shiny Exercises

## Typically:
## the ui part would be save in ui.R
## the server section in server.R
## The app would be run using runApp()

library("shiny")
library("jrShiny")
data(movies, package = "jrShiny")

ui = fluidPage(
  titlePanel("I love movies"),
  fluidRow(
    column(4,
           wellPanel(
             selectInput("movie_type", label = "Movie genre", c("Romance", "Action", "Animation"))
           )
    ),
    column(8, plotOutput("scatter"))
  )
)


server = function(input, output) {
  output$scatter = renderPlot({
    an = movies[movies[input$movie_type] == 1, ]
    setnicepar()
    plot(an$rating, an$length, ylab = "Length", xlab = "Rating",
         pch = 21, bg = "steelblue", ylim = c(0, max(an$length)),
         xlim = c(1, 10), main = paste0(input$movie_type, " movies"))
    grid()
  })
}

runApp(list(ui = ui, server = server))