Remove NA shows only if they exist\n\nIn previous versions of the db, some shows had no title. This is not the case anymore, and all shows were removed as a consequence.

app.R

@@ -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%",