ВП
Size: a a a
ВП
DP
DP
YS
АК
df %>%
mutate(grp = cumsum(lag(if_else(type == "event", 1 ,0), default = 0))) %>%
group_split(grp)
library(data.table)
setDT(df)
df[, grp := cumsum(shift(ifelse(type == "event", 1, 0), fill = 0))]
split(df, df$grp)
fifelse
тогда уж. Пошустрее всё же.AS
ЭА
ЭА
AS
vo
AS
V
БА
AP
АК
get_ga
передаёшь переменную rga_auth2
, которой, очевидно, не существует, о чём и сказано в тексте ошибки.rga_toeken <- readRDS("rga_auth2")
E
AS
E
ДВ
БА