You can do this like so:
dat <- as.Date('2007-01-01')
dat + c(0,20, 365, 390)
#> [1] "2007-01-01" "2007-01-21" "2008-01-01" "2008-01-26"
You will discover that the last element of the result is different to your expected output.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…