Week 4 preparation

mef_bda_503_2018_week_4.r

pti <- c("shiny","tidyverse","ggplot2movies")
pti <- pti[!(pti %in% installed.packages())]
if(length(pti)>0){
  install.packages(pti)
}

##########
### Shiny starter code
##########
library(shiny)
library(tidyverse)
library(ggplot2movies)

# Set randomness seed
set.seed(61)
# Prepare data
shiny_movie_set <- 
movies %>% 
  filter(year >= 2000) %>%
  select(title,year,length,rating,votes,Action:Short) %>% 
  gather(genre,value,Action:Short) %>% 
  filter(value == 1) %>% 
  select(-value)

# Get genre list
genres <- 
shiny_movie_set %>% 
  distinct(genre) %>% 
  unlist(.)

names(genres) <- NULL