R语言实现时间序列向量回看7天存在旧值时元素替换的方法咨询

我有两个如下所示的时间序列向量：

a <- c(1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0)
b <- c(1, 0, 1, 0)

我需要实现回看7天的处理逻辑，具体规则如下：

• 仅当待处理向量位置的7天前存在有效旧值时，才将向量中值为1的元素替换为2
• 替换操作前必须校验对应位置7天前是否存在有效数据，不满足校验条件的元素保持原值不变

预期处理结果 #

a = c(1, 0, 0, 0, 1, 0, 2, 1, 1, 0, 2, 0)
b = c(1, 0, 1, 0) # 由于所有位置往前回溯7天都没有对应有效数据，因此无元素需要替换，向量保持原样

请问在R语言中如何实现该处理逻辑？

内容的提问来源于stack exchange，提问作者Saurabh