tests/testthat/test_player_data.R

In stephematician/statsnbaR: R interface to stats.nba.com

library(statsnbaR)
context('player data functions parse arguments')

test_that(
    'get_players fails when invalid season is entered',
    {
        expect_error(get_players(season=0.1),
                     paste('\\[statsnbaR get_players\\]',
                           0.1,
                           'is not a valid season.'))
    })

test_that(
    'get_players fails when league=\'foo\'',
    {
        expect_error(get_players(league='foo'),
                     paste('\\[statsnbaR get_players\\]',
                           'foo',
                           'is not a valid league name.'))
    })

test_that(
    'per_player_agg checks inputs',
    {
        expect_error(per_player_agg(clutch='foo'),
                     paste('\\[statsnbaR per_player_agg\\] \'clutch\' must',
                           'be logical'))
        expect_error(per_player_agg(measurement='foo'),
                     paste('\\[statsnbaR per_player_agg\\] invalid',
                           '\'measurement\' type specified'))
        expect_error(per_player_agg(filters=NULL),
                     paste('\\[statsnbaR per_player_agg\\] filters must be a',
                           'valid key-pair list recognised by statsnbaR'))
        expect_error(per_player_agg(filter_per_player(league='foo')),
                     paste('\\[statsnbaR per_player_agg\\] filters must be a',
                           'valid key-pair list recognised by statsnbaR'))
    })

test_that(
    'per_player_agg checks inputs when clutch is true',
    {
        expect_error(per_player_agg(filter_per_player(league='foo'),
                                     clutch=TRUE),
                     paste('\\[statsnbaR per_player_agg\\] filters must be a',
                           'valid key-pair list recognised by statsnbaR'))
        # config(ipresolve=1) passed to force IPv4 - but this may not be
        # platform independent - should use curl_symbols
        expect_warning(per_player_agg(filter_per_player(),
                                       clutch=TRUE,
                                       config=config(ipresolve=1)),
                       paste('\\[statsnbaR per_player_agg\\] using default',
                             'clutch definition, to avoid this warning use',
                             'filter_player_clutch\\(\\) to construct filters',
                             'when \'clutch=TRUE\''))
    })

test_that(
    'per_player_agg fails when filters are clutch but clutch is false',
    {
        expect_error(per_player_agg(filters=filter_per_player_clutch()),
                     paste('invalid filters.+specified for stats\\.nba\\.com',
                           'endpoint.+'))
    })

#TODO player_bio data