|
@@ -11,6 +11,8 @@ imdb %>% |
|
|
shows$id %>% |
|
|
shows$id %>% |
|
|
setNames(shows$title) -> shows |
|
|
setNames(shows$title) -> shows |
|
|
|
|
|
|
|
|
|
|
|
shows <- shows[- (names(shows) %>% is.na %>% which)] |
|
|
|
|
|
|
|
|
ui <- fluidPage( |
|
|
ui <- fluidPage( |
|
|
inputPanel(width = "20%", height = "100%", |
|
|
inputPanel(width = "20%", height = "100%", |
|
|
h1("GraphTV"), |
|
|
h1("GraphTV"), |
|
|