Mi problema es similar a esta pregunta anterior¿La forma más rápida de agregar filas para valores perdidos en un data.frame?

No puedo entender cómo agregar filas rellenadas con "NA" cuando el mínimo / máximo es diferente por grupo.

> red<-data.frame(project = c(6, 6, 6, 6, 6, 9, 9, 9), period =c(1, 2, 5:7, 2, 4, 5), v3=letters[1:8], v4=c("red", "yellow", recursive = T))
> red
  project period v3     v4
1       6      1  a    red
2       6      2  b yellow 
3       6      5  c    red
4       6      6  d yellow
5       6      7  e    red
6       9      2  f yellow
7       9      4  g    red
8       9      5  h yellow

Quiero que se vea así:

project period v3     v4
      6      1  a    red
      6      2  b yellow
      6      3 NA     NA
      6      4 NA     NA
      6      5  c    red
      6      6  d yellow
      6      7  e    red
      9      2  f yellow
      9      3 NA     NA
      9      4  g    red
      9      5  h yellow

Cuando solia

library(data.table)
DT=as.data.table(red)
setkey(DT, project, period)

DT[CJ(unique(project), seq(min(period), max(period)))]

hizo que cada grupo de proyecto tuviera 7 períodos; El Proyecto 6 debería tener períodos 1-7, pero el Proyecto 9 debería tener períodos 2-5.

He intentado jugar con.SD[ which.max(period)], by=project] Pero sin cigarro.

Pensé que debería ser algo simple en el seq (), pero intentéseq(min(period, by=project)) sin suerte

¡Gracias!