data-raw/hanhwa_batter_2018.R

In choosunsick/kbodatamining: Kbo Data Mining and Analysis with R

library(jsonlite)
sample_set <- fromJSON("./json_sample/Hanhwa_normalseason_2018.json")
batter_id  <- read.csv("./player_id_list/batter_id_list.csv",stringsAsFactors = F)

hanhwa_batter_2018 <- do.call(rbind,lapply(names(sample_set),FUN = function(x)json2batterdf(sample_set,x)))
hanhwa_batter_2018 <- hanhwa_batter_2018[,c(18:21,11,16:17,1:9,24,23,22,13,12,10,15)]
colnames(hanhwa_batter_2018) <- c('date','away','home','doubleheader','name','team','position',
                                  'one','two','three','four','five','six','seven','eight','nine',
                                  'ten','eleven','twelve','ab','h','r','rbi')

batter_id_2018 <- batter_id[substr(batter_id$date,1,4)==2018,]
batter_id_hanhwa_2018 <- batter_id_2018[batter_id_2018$away=="한화"|batter_id_2018$home=="한화",]
hanhwa_batter_2018 <- get_player_id(hanhwa_batter_2018,batter_id_hanhwa_2018)
hanhwa_batter_2018 <- hanhwa_batter_2018[order(hanhwa_batter_2018$date,decreasing = F),]
write.csv(hanhwa_batter_2018,"data-raw/hanhwa_batter_2018.csv",row.names = F)

usethis::use_data(hanhwa_batter_2018,overwrite = TRUE)