tests/testthat/test-live.R

test_that("live scoring returns 1 row per team", {
  l <- live_scoring(leagueId = "42654852", yetToPlay = TRUE, bonusWin = TRUE)
  expect_s3_class(l, "data.frame")
  expect_true("toPlay" %in% names(l))
  expect_length(l, 8)
  expect_equal(nrow(l), 4)
})

Try the fflr package in your browser

Any scripts or data that you put into this service are public.

fflr documentation built on Sept. 14, 2023, 9:10 a.m.