Nothing
context("nhl_seasons")
testthat::test_that(
"nhl_seasons has correct names", {
testthat::skip_if_offline(host = "nhl.com")
testthat::skip_if(skipRemoteTests)
res <- nhl_seasons(2000:2005)
testthat::expect_equal(
names(res),
c(
"seasonId", "regularSeasonStartDate", "regularSeasonEndDate",
"seasonEndDate", "numberOfGames", "tiesInUse",
"olympicsParticipation", "conferencesInUse", "divisionsInUse",
"wildCardInUse", "url", "copyright"
)
)
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.