创建变量，该变量是最接近日期的关联值

Question

我有一个由一系列日期和时间组成的数据集，我的目标是创建一个新变量，该变量的值与第一个日期列最接近（在第一个日期列之前），除非它是NA，在这种情况下，该值最接近（之前）的任意日期。假设我感兴趣的任意日期是2018年1月1日，我需要以下内容：

如果TimeK为NA，则我需要具有最接近（但早于）01/01/2018的相应时间戳的值。

如果TimeK不是NA，则需要具有下一个最接近时间戳记的值（在TimeK和01/01/2018之前）。

 TimeK <- c("12/31/2017", NA,  "12/01/2017", "12/01/2017", "12/05/2017")
 Time1 <- c("01/01/2018",  "12/03/2017", "11/17/2018", "11/01/2017", 
 "12/05/2017")
 Value1 <- c( 10, 30, 50, 100, 5)
 Time2 <- c("12/28/2017", "12/13/2017", "12/01/2017", "10/01/2017", 
 "09/12/2017")
 Value2 <- c(15, 45, 300, 100, 200)
 Time3 <- c("01/08/2018", "12/01/2017", "11/23/2017", "06/01/2017", 
 "12/31/2017")
 Value3 <- c(1, 50, 45, 70, 24)

新变量的预期结果为15,45,45,100,200。