如何在R中压缩按日期排序的数据集中变量的块副本？

install.packages("dplyr")
install.packages("tidyverse")

library(dplyr)
library(tidyverse)

data <- data.frame(date = c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04"),
                   variable = c(10, 20, 30, 40))

data$date <- as.Date(data$date)

data <- data %>% arrange(date)

data <- data %>% group_by(date) %>% mutate(block = cumsum(c(0, diff(date) != 1)))

data <- data %>% group_by(block) %>% mutate(compressed_value = mean(variable))