R - ejercicio R

Buenos dias, tengo una duda

Tendría esto:
#i) fecha de cumpleaños
(s=as.Date("29/07/2022",format="%d/%m/%Y"))
(n=as.Date("29/07/2010", format="%d/%m/%Y"))
seq(from=n, to=s, by="year")
#############################################################################
#j) secuencia de fechas
(v=seq(from=n,to=s, by="3 months"))

A partir de estos datos, se me pide que sustituya dicha secuencia por otra en la que los datos correspondientes a los años pares se sustituyan por el año con 4 digitos y los datos con años impares con 2 digitos.
¿Como se haría?

He hecho esto pero no está correcto:
(año<- as.numeric(format(v,"%Y"))) #aqui intento ver que año es par
(pares<-as.Date(format(v,"%Y/%m/%d")))
(impares<-as.Date(format(v,"%y/%m/%d")))
(resto=(año%%2))

if (resto<0) {print (pares)} else { print (impares)}