Deleted commented section

app.R

@@ -73,18 +73,6 @@ server <- function(input, output, session)
           }) %>%
     subplot(shareY = T, nrows = 1, margin = 0) %>%
     hide_legend
-
-    # eps %>%
-    #   arrange(seasonNumber, episodeNumber) %>%
-    #   add_rownames(var = "ep") %>%
-    #   mutate(ep = ep %>% as.numeric, seasonNumber = seasonNumber %>% as.factor) %>%
-    #   ggplot() +
-    #   aes(x = ep, y = averageRating, group = seasonNumber) +
-    #   geom_point(aes(text = primaryTitle)) +
-    #   geom_smooth(method = "lm") +
-    #   xlab("Episode") +
-    #   ylab("Rating")
-
   })
 }