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