Classify banned WADA substances

usada_data should be the table of sanctions from the United States Anti-Doping Agency. The substance_reason column contains the justification for each sanction. In some cases, there are multiple substances/reasons, and these should be identified first.

Usage

classify_wada_substances(usada_data, subs_column)

Arguments

usada_data

scraped data from USADA website

subs_column

column with substances/reasons for sanctions

Value

substances dataset with newly classified substances

Examples

example_sanction_type
#>           sport                                           substance_reason
#> 1      swimming                     non-analytical: 3 whereabouts failures
#> 2 track & field                                               cannabinoids
#> 3     triathlon                  androgenic anabolic steroid; cannabinoids
#> 4 track & field non-analytical: tampering, administration, and trafficking
substances <- classify_wada_substances(
  usada_data = example_sanction_type,
  subs_column = substance_reason
)
#> Error in eval(expr, envir, enclos): object 'substance_reason' not found
head(substances[c('substance_group', 'substance_reason')])
#> Error in eval(expr, envir, enclos): object 'substances' not found