|
|
|
@@ -1,17 +1,10 @@ |
|
|
|
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%") |
|
|
|
uiOutput("show_choice") |
|
|
|
), |
|
|
|
plotlyOutput("show_graph", width = "100%", height = "800px") |
|
|
|
) |
|
|
|
|
