library(dplyr)
df0 <- acb_vbc_cz_pbp_2223
day_num <- unique(acb_vbc_cz_pbp_2223$day)
game_code <- unique(acb_vbc_cz_pbp_2223$game_code)
acb_games_2223_sl <- acb_vbc_cz_sl_2223 %>%
filter(period == "1C")
df1 <- do_prepare_data(df0, day_num,
acb_games_2223_sl, acb_games_2223_info,
game_code)
df2 <- do_lineup(df1, day_num, game_code, "Valencia Basket", FALSE)
df3 <- do_sub_lineup(df2, 4)
#df3
Run the code above in your browser using DataLab