如何从R中的表中获取最接近特定车辆的指定维修日期的诊断日期

library(dplyr)
library(lubridate)

vehicles <- data.frame(
  vehicle_id = c(1, 2, 3, 4, 5),
  repair_date = c("2022-01-01", "2022-02-01", "2022-03-01", "2022-04-01", "2022-05-01"),
  diagnosis_date = c("2022-01-05", "2022-02-10", "2022-03-15", "2022-04-20", "2022-05-25")
)

vehicles$repair_date <- as.Date(vehicles$repair_date)
vehicles$diagnosis_date <- as.Date(vehicles$diagnosis_date)

get_closest_diagnosis_date <- function(vehicle_id, repair_date, diagnosis_date) {
  closest_date <- vehicles %>%
    filter(vehicle_id == vehicle_id) %>%
    arrange(abs(repair_date - repair_date)) %>%
    slice(1) %>%
    pull(diagnosis_date)
  
  return(closest_date)
}

vehicle_id <- 3
repair_date <- as.Date("2022-03-05")

closest_diagnosis_date <- get_closest_diagnosis_date(vehicle_id, repair_date, vehicles)