f_names.R

f_names <- function( p_pk_factors )
{
  p_file  <- fread( input      = "./parks.csv"
                  , header     = T
                  , sep        = ','
                  , na.strings = ''
                  , stringsAsFactors = F
                  , colClasses = c( 'character'          # BALL_PARK_ID
                                  , 'character'          # BALL_PARK_NAME
                                  , rep( x = 'NULL', 7 ) # 9
                                  )
                  , col.names  = c( 'PARK_ID', 'PARK_NAME' ) 
                  )
  
  inner_join( x  = p_file
            , y  = p_pk_factors
            , by = c("PARK_ID") 
            ) %>%
  select( YEAR, PARK_ID, PARK_NAME, TEAM_ID, YEARS, H_RS, H_RA, H_G, A_RS, A_RA, A_G, PK_FACTOR ) 
}