Here's a reproducible script for everything in sysdata.rda
.
'special positions' handles positions like CI
and Util
. Here are the mappings:
special_positions_map <- list( 'CI' = c('1B', '3B'), 'MI' = c('2B', 'SS'), 'Util' = c('C', '1B', '2B', 'SS', '3B', 'OF', 'DH'), 'P' = c('SP', 'RP') )
Save:
save(special_positions_map, file = file.path('data', 'special_positions_map.rda'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.