r - tsibble : 使用 index_by 将 NA 添加到不完整的低频值中并汇总

Question

library(tsibble)
library(dplyr)
example <- as_tsibble(ts(rep(1,10),frequency = 12,start=2010))

example %>%
  index_by(quarter = ~ yearquarter(.)) %>%
  summarize(value=sum(value))

# A tsibble: 4 x 2 [1Q]
#  quarter value
#    <qtr> <dbl>
#1 2010 Q1     3
#2 2010 Q2     3
#3 2010 Q3     3
#4 2010 Q4     1

这里 1 是不需要的，因为sum没有设置为na.rm=TRUE. 我想要一种可读的方式，仅依赖 tsibble（即没有任何时间过滤高频索引，也没有添加手动月份观察），对 tsibble 进行严格的聚合。即确保不完整的低频值是NA。在那里，严格的方法是 2010 Q4 是 NA，而不是 1。

包装内似乎没有任何fill_gaps参数tsibble可以强制填充直到较低频率结束，这将允许类似

example %>%
  index_by(quarter = ~ yearquarter(.)) %>%
  fill_gaps() %>%
  summarize(value=sum(value))

给出涉及 NA的正确严格聚合。