stan125 / omdbapi Goto Github PK

devtools::install_github("hrbrmstr/omdbapi")

library(omdbapi)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(pbapply)
#> Warning: package 'pbapply' was built under R version 3.2.4

# current verison
packageVersion("omdbapi")
#> [1] '0.2.0.9000'

search_by_title("Captain America")
#> Source: local data frame [10 x 5]
#> 
#>                                                   Title  Year    imdbID   Type
#>                                                   (chr) (chr)     (chr)  (chr)
#> 1                    Captain America: The First Avenger  2011 tt0458339  movie
#> 2                   Captain America: The Winter Soldier  2014 tt1843866  movie
#> 3                                       Captain America  1990 tt0103923  movie
#> 4                                       Captain America  1979 tt0078937  movie
#> 5           Iron Man and Captain America: Heroes United  2014 tt3911200  movie
#> 6                    Captain America II: Death Too Soon  1979 tt0078938  movie
#> 7                                       Captain America  1944 tt0036697  movie
#> 8                                       Captain America 1966– tt0206474 series
#> 9                        Captain America: Super Soldier  2011 tt1740721   game
#> 10 Comic Book Origins: Captain America - Winter Soldier  2014 tt3618126  movie
#> Variables not shown: Poster (chr)

search_by_title("Captain America", page = 2)
#> Source: local data frame [10 x 5]
#> 
#>                                                                Title  Year
#>                                                                (chr) (chr)
#> 1                          Marvel's Captain America: 75 Heroic Years  2016
#> 2                                   Captain America and the Avengers  1991
#> 3                                   A Look Back at 'Captain America'  2013
#> 4                          Captain America XXX: An Axel Braun Parody  2014
#> 5                     Captain America XXX: An Extreme Comixxx Parody  2011
#> 6  Marvel LIVE! World Premiere of Captain America: The First Avenger  2011
#> 7             Captain America: The First Avenger - Outfitting a Hero  2011
#> 8        Captain America: The Winter Soldier, Steve Rogers' Notebook  2014
#> 9                                  Captain Amazing-Lad Saves America  2011
#> 10            Captain America: The First Avenger - Howling Commandos  2011
#> Variables not shown: imdbID (chr), Type (chr), Poster (chr)

search_by_title("Captain America", year_of_release=2013)
#> Source: local data frame [1 x 5]
#> 
#>                              Title  Year    imdbID  Type Poster
#>                              (chr) (chr)     (chr) (chr)  (chr)
#> 1 A Look Back at 'Captain America'  2013 tt3307378 movie    N/A

games <- search_by_title("Captain America", type="game")
glimpse(games)
#> Observations: 2
#> Variables: 5
#> $ Title  (chr) "Captain America: Super Soldier", "Captain America and the A...
#> $ Year   (chr) "2011", "1991"
#> $ imdbID (chr) "tt1740721", "tt0421939"
#> $ Type   (chr) "game", "game"
#> $ Poster (chr) "http://ia.media-imdb.com/images/M/MV5BMTUwMzQ0NjE5N15BMl5Ba...

find_by_title(games$Title[1])
#>      Title: Captain America: Super Soldier
#>       Year: 2011
#>      Rated: N/A
#>   Released: 2011-07-19
#>    Runtime: N/A
#>      Genre: Action
#>   Director: Michael McCormick, Robert Taylor
#>     Writer: Christos N. Gage
#>     Actors: Chris Evans, Sebastian Stan, Hayley Atwell, Neal McDonough
#>       Plot: You play the Sentinel of Liberty as you raid the Red Skull's scientist
#>             minion, Armin Zola's, lair.
#>   Language: English
#>    Country: USA
#>     Awards: N/A
#>     Poster: http://ia.media-imdb.com/images/M/
#>             MV5BMTUwMzQ0NjE5N15BMl5BanBnXkFtZTgwODI3MzQxMTE@._V1_SX300.jpg
#>  Metascore: N/A
#> imdbRating: 7.2
#>  imdbVotes: 311
#>     imdbID: tt1740721
#>       Type: game

find_by_title("Game of Thrones", type="series", season=1, episode=1)
#>      Title: Winter Is Coming
#>       Year: 2011
#>      Rated: TV-MA
#>   Released: 2011-04-17
#>    Runtime: 62 min
#>      Genre: Adventure, Drama, Fantasy
#>   Director: Timothy Van Patten
#>     Writer: David Benioff (created by), D.B. Weiss (created by), George R.R.
#>             Martin ("A Song of Ice and Fire" by), David Benioff, D.B. Weiss
#>     Actors: Sean Bean, Mark Addy, Nikolaj Coster-Waldau, Michelle Fairley
#>       Plot: Jon Arryn, the Hand of the King, is dead. King Robert Baratheon plans
#>             to ask his oldest friend, Eddard Stark, to take Jon's place. Across
#>             the sea, Viserys Targaryen plans to wed his sister to a nomadic
#>             warlord in exchange for an army.
#>   Language: English
#>    Country: USA
#>     Awards: N/A
#>     Poster: http://ia.media-imdb.com/images/M/
#>             MV5BMTk5MDU3OTkzMF5BMl5BanBnXkFtZTcwOTc0ODg5NA@@._V1_SX300.jpg
#>  Metascore: N/A
#> imdbRating: 8.9
#>  imdbVotes: 14119
#>     imdbID: tt1480055
#>       Type: episode

get_tv_data("True Detective")
#> Last episode of Season 1 was episode 8 
#> Last episode of Season 2 was episode 8
#>    Season Episode imdbRating episode.no
#> 1       1       1        9.0          1
#> 2       1       2        8.9          2
#> 3       1       3        9.2          3
#> 4       1       4        9.7          4
#> 5       1       5        9.6          5
#> 6       1       6        9.1          6
#> 7       1       7        9.2          7
#> 8       1       8        9.5          8
#> 9       2       1        8.0          9
#> 10      2       2        8.1         10
#> 11      2       3        7.7         11
#> 12      2       4        8.5         12
#> 13      2       5        8.1         13
#> 14      2       6        8.7         14
#> 15      2       7        9.1         15
#> 16      2       8        8.4         16

get_genres(find_by_title("Star Trek: Deep Space Nine", season=5, episode=7))
#> [1] "Action"    "Adventure" "Drama"

get_writers(find_by_title("Star Trek: Deep Space Nine", season=4, episode=6))
#> [1] "Gene Roddenberry (based upon \"Star Trek\" created by)"
#> [2] "Rick Berman (created by)"                              
#> [3] "Michael Piller (created by)"                           
#> [4] "David Mack"                                            
#> [5] "John J. Ordover"

get_directors(find_by_id("tt1371111"))
#> [1] "Tom Tykwer"      "Lana Wachowski"  "Lilly Wachowski"

get_countries(find_by_title("The Blind Swordsman: Zatoichi"))
#> [1] "Japan"

ichi <- search_by_title("Zatoichi")
bind_rows(lapply(ichi$imdbID, function(x) {
  find_by_id(x, include_tomatoes = TRUE)
})) -> zato

par(mfrow=c(3,1)) 
boxplot(zato$tomatoUserMeter, horizontal=TRUE, main="Tomato User Meter", ylim=c(0, 100))
boxplot(zato$imdbRating, horizontal=TRUE, main="IMDB Rating", ylim=c(0, 10))
boxplot(zato$tomatoUserRating, horizontal=TRUE, main="Tomato User Rating", ylim=c(0, 5))

par(mfrow=c(1,1))

library(omdbapi)
library(testthat)

date()
#> [1] "Thu Mar 17 14:27:05 2016"

test_dir("tests/")
#> testthat results ================================================================
#> OK: 0 SKIPPED: 0 FAILED: 0