我如何正确地使用ifelse来处理R中的时间戳突变？

# 创建一个包含时间戳的向量
timestamps <- c("2022-01-01 12:00:00", "2022-01-01 12:00:01", "2022-01-01 12:00:03", "2022-01-01 12:00:05")

# 将时间戳转换为POSIXct类型
timestamps <- as.POSIXct(timestamps, format = "%Y-%m-%d %H:%M:%S")

# 计算时间戳之间的差值
time_diff <- diff(timestamps)

# 设置一个阈值，用于判断时间戳是否发生突变
threshold <- 2

# 使用ifelse处理时间戳突变
adjusted_timestamps <- c(timestamps[1], ifelse(time_diff > threshold, timestamps[-1] + threshold, timestamps[-1]))

# 输出处理后的时间戳
print(adjusted_timestamps)