Как создать подмножество из нескольких фреймов данных в списке, содержащем только строки с последовательными номерами в одном из столбцов?

У меня есть список фреймов данных, в каждом из которых есть столбцы года, месяца, дня и температуры, а также некоторые другие данные. Я уже выяснил (с помощью помощи по переполнению стека, спасибо, ребята), как подмножество фреймов данных, чтобы они содержали только те данные, температура которых превышает определенный порог. Однако теперь мне нужно взять эти подмножества и найти другое подмножество последовательных дней (по сути, найти все строки, в которых температура была выше порогового значения в течение 3+ дней).

пример данных:

set.seed(1234)

A <- data.frame("D" = c(sample(1:5, size = 1000, replace = TRUE)), "Temp" = c(sample(0:35, size = 1000, replace = TRUE)))
B <- data.frame("D" = c(sample(1:5, size = 1000, replace = TRUE)), "Temp" = c(sample(-10:22, size = 1000, replace = TRUE)))
C <- data.frame("D" = c(sample(1:5, size = 1000, replace = TRUE)), "Temp" = c(sample(3:42, size = 1000, replace = TRUE)))

climate <- list("Alist" = A, "Blist" = B, "Clist" = C)

# courtesy of ThomasIsCoding
tm <- lapply(
  climate,
  function(x) {
    subset(
      x,
      Temp > quantile(Temp, probs = 0.90)
    )
  }
)
tm

До сих пор я пытался использовать lapply, diff и rle, чтобы найти случаи, когда дни были последовательными. Я взял свой список фреймов данных, использовал lapply, чтобы выбрать столбец дней, затем снова использовал lapply, чтобы найти разницу между каждым элементом в столбце дней, а затем снова использовал lapply, чтобы выполнить rle.

result <- lapply(lapply(lapply(
  tm, '[[',1), # this selects the days column in all the dataframes in the list tmax95
  diff), # this finds the difference between each element in the days column to help determine if they are consecutive
  rle) # i don't really understand rle fully but to my understanding this takes all the differences and counts how many there are in order or something like that
result

Затем я использую еще один пример, чтобы найти случаи, когда имеется более двух различий в 1 день (последовательных).

fin <- lapply(result, function(x) x$lengths>=2 & x$values==1)
fin

Однако это не совсем то, что я хочу в качестве конечного результата, поскольку он возвращает список списков значений True и Falses, тогда как мне нужны строки данных, связанные с возвращаемыми значениями True. Как я смогу получить данные за последовательные дни, а не за истинные значения?