stock_prices <- read_csv_arrow(
  file = "prices.csv",
  as_data_frame = FALSE
)