test_that("NBA Assist Tracker", { skip_on_cran() skip_on_ci() x <- nba_assisttracker(league_id = "00") cols_x1 <- c( "ASSISTS" ) expect_equal(sort(colnames(x[[1]])), sort(cols_x1)) expect_s3_class(x[[1]], "data.frame") Sys.sleep(3) })