|
|
@@ -0,0 +1,94 @@ |
|
|
|
library(tidyverse) |
|
|
|
library(httr) |
|
|
|
library(rvest) |
|
|
|
library(plotly) |
|
|
|
library(jsonlite) |
|
|
|
library(knitr) |
|
|
|
|
|
|
|
key <- "?api_key=32e0ed1416c58777f986f3f33751fc22" |
|
|
|
tmdb_url <- "http://api.themoviedb.org/3/" |
|
|
|
|
|
|
|
ui <- fluidPage( |
|
|
|
inputPanel(width = "20%", height = "100%", |
|
|
|
textInput("show_search", "Search show"), |
|
|
|
uiOutput("show_choice", width = "50%") |
|
|
|
), |
|
|
|
plotlyOutput("show_graph", width = "100%", height = "800px") |
|
|
|
) |
|
|
|
|
|
|
|
server <- function(input, output, session) |
|
|
|
{ |
|
|
|
shows <- eventReactive(input$show_search, { |
|
|
|
req(input$show_search) |
|
|
|
|
|
|
|
serie <- input$show_search %>% url_escape |
|
|
|
|
|
|
|
GET(str_c(tmdb_url, "search/tv", key, "&query=", serie)) %>% |
|
|
|
content(as = "text") %>% |
|
|
|
fromJSON -> res |
|
|
|
|
|
|
|
#res$results$poster_path |
|
|
|
|
|
|
|
res$results$id %>% |
|
|
|
as.list %>% |
|
|
|
setNames(res$results$original_name) |
|
|
|
}) |
|
|
|
|
|
|
|
output$show_choice <- renderUI({ |
|
|
|
req(shows()) |
|
|
|
|
|
|
|
selectizeInput("show", "Please choose…", shows()) |
|
|
|
}) |
|
|
|
|
|
|
|
output$show_graph <- renderPlotly({ |
|
|
|
req(input$show) |
|
|
|
|
|
|
|
show_id <- input$show |
|
|
|
|
|
|
|
GET(str_c(tmdb_url, "tv/", show_id, key)) %>% |
|
|
|
content(as = "text") %>% |
|
|
|
fromJSON -> res |
|
|
|
|
|
|
|
res$backdrop_path |
|
|
|
1:res$number_of_seasons -> seasons |
|
|
|
res$vote_average |
|
|
|
|
|
|
|
seasons %>% |
|
|
|
map(~ GET(str_c(tmdb_url, "tv/", show_id, "/season/", ., key)) %>% |
|
|
|
content(as = "text") %>% |
|
|
|
fromJSON) -> res |
|
|
|
|
|
|
|
res %>% |
|
|
|
map("episodes") %>% |
|
|
|
reduce(bind_rows) %>% |
|
|
|
select(season_number, episode_number, name, still_path, vote_average, vote_count) -> episodes |
|
|
|
|
|
|
|
episodes %>% |
|
|
|
by(.$season_number, function(x){ |
|
|
|
fit <- lm(vote_average ~ episode_number, data = x) |
|
|
|
x %>% |
|
|
|
plot_ly(hoverinfo = "text", |
|
|
|
text = ~str_c("S", season_number, "E", episode_number, " - ", name, "<br>", |
|
|
|
"Rating: ", vote_average, "(", vote_count, " votes)<br>")) %>% |
|
|
|
add_trace(data = x, x = ~episode_number, y = ~vote_average, mode = "markers") %>% |
|
|
|
add_trace(data = x, x = ~episode_number, y = fitted(fit), mode = "lines") %>% |
|
|
|
layout(xaxis = list(tick0 = 0, dtick = 1), |
|
|
|
yaxis = list(title = "Rating")) |
|
|
|
}) %>% |
|
|
|
subplot(shareY = T, nrows = 1, margin = 0) %>% |
|
|
|
hide_legend |
|
|
|
|
|
|
|
# episodes %>% |
|
|
|
# arrange(season_number, episode_number) %>% |
|
|
|
# add_rownames(var = "ep") %>% |
|
|
|
# mutate(ep = ep %>% as.numeric, season_number = season_number %>% as.factor) %>% |
|
|
|
# ggplot() + |
|
|
|
# aes(x = ep, y = vote_average, group = season_number, color = season_number) + |
|
|
|
# geom_point(aes(text = name)) + |
|
|
|
# geom_smooth(method = "lm") + |
|
|
|
# xlab("Episode") + |
|
|
|
# ylab("Rating") |
|
|
|
}) |
|
|
|
} |
|
|
|
|
|
|
|
shinyApp(ui = ui, server = server) |