This should also work, assuming all files have the same structure.
temp <- list.files("C:/Users/Desktop", full.names = TRUE, pattern = "\\.csv$")
bike_rides <- readr::read_csv(temp, id = "file_name")
5 Likes