test_that("ff_draft returns a tibble for each platform currently programmed", {
local_mock_api()
sfb_conn <- ff_connect("mfl", 65443, season = 2020)
sfb_draftresults <- ff_draft(sfb_conn)
expect_tibble(sfb_draftresults, min.rows = 100)
ssb_conn <- ff_connect("mfl", 54040, season = 2020)
ssb_draftresults <- ff_draft(ssb_conn)
expect_tibble(ssb_draftresults, min.rows = 40)
jml_conn <- ff_connect(platform = "sleeper", league_id = "522458773317046272", season = 2020)
jml_draftresults <- ff_draft(jml_conn)
expect_tibble(jml_draftresults, min.rows = 40)
auction_conn <- ff_connect(platform = "sleeper", league_id = "695482984576385024", season = 2021)
auction_draftresults <- ff_draft(auction_conn)
expect_tibble(auction_draftresults, min.rows = 250)
joe_conn <- fleaflicker_connect(season = 2020, league_id = 206154)
joe_draftresults <- ff_draft(joe_conn)
expect_tibble(joe_draftresults)
tony <- espn_connect(season = 2020, league_id = 899513)
tony_draftresults <- ff_draft(tony)
expect_tibble(tony_draftresults, min.rows = 200)
})
test_that("sleeper_draft returns a tibble for given draft id",{
rivals_draft <- sleeper_draft("958065648918114304")
rivals_mock <- sleeper_draft("975149570965467136")
expect_tibble(rivals_draft, min.rows = 50)
expect_tibble(rivals_mock, min.rows = 50)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.