Reorg, take N!

.gitignore

@@ -6,5 +6,6 @@ resources/
 .RData
 .Ruserdata
 *.key
-teach-shiny-attendees.csv
-rsconnect/
+rsconnect/
+sample-curricula/
+attendee-info/

materials/03-scaffolding/movies/_movies_05.R

@@ -0,0 +1,92 @@
+# Load packages ----------------------------------------------------------------
+library(shiny)
+library(tidyverse)
+
+# Load data --------------------------------------------------------------------
+load("movies.Rdata")
+
+# Define UI for application that plots features of movies ----------------------
+ui <- fluidPage(
+
+  # Application title ----------------------------------------------------------
+  titlePanel("Movie browser"),
+
+  # Sidebar layout with a input and output definitions -------------------------
+  sidebarLayout(
+
+    # Inputs: Select variables to plot -----------------------------------------
+    sidebarPanel(
+
+      # Select variable for y-axis ---------------------------------------------
+      selectInput(inputId = "y", 
+                  label = "Y-axis:",
+                  choices = c("IMDB rating" = "imdb_rating", 
+                              "IMDB number of votes" = "imdb_num_votes", 
+                              "Critics Score" = "critics_score", 
+                              "Audience Score" = "audience_score", 
+                              "Runtime" = "runtime"), 
+                  selected = "audience_score"),
+
+      # Select variable for x-axis ---------------------------------------------
+      selectInput(inputId = "x", 
+                  label = "X-axis:",
+                  choices = c("IMDB rating" = "imdb_rating", 
+                              "IMDB number of votes" = "imdb_num_votes", 
+                              "Critics Score" = "critics_score", 
+                              "Audience Score" = "audience_score", 
+                              "Runtime" = "runtime"), 
+                  selected = "critics_score"),
+
+      # Select variable for color ----------------------------------------------
+      selectInput(inputId = "z", 
+                  label = "Color by:",
+                  choices = c("Title Type" = "title_type", 
+                              "Genre" = "genre", 
+                              "MPAA Rating" = "mpaa_rating", 
+                              "Critics Rating" = "critics_rating", 
+                              "Audience Rating" = "audience_rating"),
+                  selected = "mpaa_rating"),
+
+      # Set alpha level --------------------------------------------------------
+      sliderInput(inputId = "alpha", 
+                  label = "Alpha:", 
+                  min = 0, max = 1, 
+                  value = 0.5)
+
+    ),
+
+    # Output -------------------------------------------------------------------
+    mainPanel(
+
+      # Show scatterplot -------------------------------------------------------
+      plotOutput(outputId = "scatterplot"),
+
+      # Show data table --------------------------------------------------------
+      DT::dataTableOutput(outputId = "moviestable")
+    )
+  )
+)
+
+# Define server function required to create the scatterplot --------------------
+server <- function(input, output) {
+
+  # Create scatterplot object the plotOutput function is expecting -------------
+  output$scatterplot <- renderPlot({
+    ggplot(data = movies, aes_string(x = input$x, y = input$y,
+                                     color = input$z)) +
+      geom_point(alpha = input$alpha) +
+      labs(x = toTitleCase(str_replace_all(input$x, "_", " ")),
+           y = toTitleCase(str_replace_all(input$y, "_", " ")),
+           color = toTitleCase(str_replace_all(input$z, "_", " ")))
+  })
+
+  # Print data table if checked ------------------------------------------------
+  output$moviestable <- DT::renderDataTable({
+    DT::datatable(data = movies[, 1:7], 
+                  options = list(pageLength = 10), 
+                  rownames = FALSE) 
+  })
+}
+
+# Create the Shiny app object --------------------------------------------------
+shinyApp(ui = ui, server = server)