data("avs_raw_metadata")
data("avs_raw_record")
avs <- format_record(avs_raw_record, avs_raw_metadata, class = "data.frame")
avs
avs <- format_record(avs_raw_core, class = "data.frame")
head(avs)
avs <- format_record(avs_raw_core, class = "data.table")
avs$atoi
as.numeric(avs$atoi)
avs[, `:=`(atoi_seconds = as.numeric(atoi),
atoi_seconds_postseason = as.numeric(atoi_postseason),
atoi = as.character(atoi),
atoi_postseason = as.character(atoi_postseason))]
avs[, .SD, .SDcols = patterns("atoi")]
Run the code above in your browser using DataLab