Discard unnamed shows

app.R

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