#' testthat
context("Testing scraping player data for QuantHockey")
source("helper-scrapePlayersQH.R")
test_that("getPlayerList from QH returns ok", {
pl <- getPlayerList.QH()
expect_equal(dim(pl)[1], 50000)
expect_equal(dim(pl)[2], 3)
expect_named(pl, pl_names.QH)
expect_equal(sum(pl$Exists), 50000)
pl2 <- getPlayerList.QH(prebuilt = TRUE)
expect_equal(dim(pl2)[2], 3)
expect_named(pl2, pl_names.QH)
expect_lt(sum(pl2$Exists), 50000)
})
test_that("Players are properly scraped from QH", {
pstats <- scrapePlayers.QH(player_list=player_list.QH, sleep = 10, long_sleep=0, directory = '.', save_player_list=FALSE, progress=FALSE)
expect_type(pstats, "list")
#expect_equivalent(pstats, player_mini_data)
expect_true(ncol(pstats$PlayerStats) == 17)
expect_true(nrow(pstats$PlayerMeta) == 8)
f1<-paste0("./QH_allPlayers-",Sys.Date(),".RDS")
expect_true(file.exists(f1))
try_delete(f1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.