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