tests/testthat/test_fantasy_pros.R

In almartin82/projprep: Preps Fantasy Baseball Projection System Files

context("fantasy_pros")

f <- read_raw_fantasy_pros(2016)

test_that("fantasy_pros reads raw data", {

  f <- read_raw_fantasy_pros(2016)
  expect_is(f$h, 'data.frame')
  expect_is(f$p, 'data.frame')
})


test_that("clean_raw_fantasy_pros cleans df", {

  f <- read_raw_fantasy_pros(2016)
  f_clean <- clean_raw_fantasy_pros(f$h, 'h')
})


test_that("get_fantasy_pros returns correct df", {

  f <- get_fantasy_pros(2016)
  expect_is(f$h, 'data.frame')
})