Buenas:
Al inicio de la función crea un vector vacío con la instrucción:
v <- numeric(0)
Luego, dentro del if, ve añadiendo años a ese vector con
v <- c(v, year)
Por último antes de la última llave, evalúa v. De esta forma v es devuelto por la función pues en R una función devuelve lo último evaluado.
Un saludo.