Заполнение нескольких столбцов во фрейме данных или таблице данных

Question

У меня есть фрейм данных, подобный следующему, и я хотел бы дополнить даты. Обратите внимание, что для идентификатора 3 не хватает четырех дней.

df = data.frame(
   id = rep(1,1,1,2,2,3,3,3),
   date = lubridate::ymd("2017-01-01","2017-01-02","2017-01-03",
            "2017-05-10","2017-05-11","2017-01-03",
            "2017-01-08","2017-01-09"),
   type = c("A","A","A","B","B","C","C","C"),
   val1 = rnorm(8),
   val2 = rnorm(8))

df

Я попробовал пакет padr, так как хотел получить быстрое решение, но, похоже, это не сработало.

?pad
padr::pad(df)
library(dplyr)
df %>% padr::pad(group = c('id'))
df %>% padr::pad(group = c('id','date'))

Любые идеи относительно инструментов или других пакетов для размещения набора данных по нескольким столбцам и на основе группировок

РЕДАКТИРОВАТЬ: Таким образом, есть три пропущенные даты в моем DF. "2017-01-03","2017-01-08","2017-01-09"

Таким образом, я хочу, чтобы окончательные даты включали три дополнительные строки, которые содержат "2017-01-04","2017-01-05","2017-01-06","2017-01-07"