From ca89869e613a4195f051d846bb8b13ab21660c43 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Fri, 21 Dec 2018 00:47:19 +0100
Subject: [PATCH] Discard unnamed shows

---
 app.R | 2 ++
 1 file changed, 2 insertions(+)

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"),