test_that("MLB - Statcast Search", {
skip_on_cran()
correa <- statcast_search(start_date = "2016-04-15",
end_date = "2016-04-15",
playerid = 621043)
expect_equal(nrow(correa), 18)
expect_equal(ncol(correa), 92)
# correa_batter <- scrape_statcast_savant_batter(start_date = "2016-04-15",
# end_date = "2016-04-15",
# batterid = 621043)
#
# expect_identical(correa, correa_batter)
noah <- statcast_search(start_date = "2016-04-06",
end_date = "2016-04-15",
playerid = 592789,
player_type = 'pitcher')
expect_equal(nrow(noah), 99)
expect_equal(ncol(noah), 92)
daily <- statcast_search(start_date = "2016-04-06",
end_date = "2016-04-06")
expect_equal(nrow(daily), 3846)
expect_equal(ncol(daily), 92)
expect_error(statcast_search(start_date = "1970-01-01"), "limited to the 2008")
expect_equal(nrow(playerid_lookup("Ohtani", "Shohei")), 1)
expect_equal(nrow(playerid_lookup("Baumer", "Ben")), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.