diff --git a/app.R b/app.R
index ca8f0d3..2323ed2 100644
--- a/app.R
+++ b/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"),