Maybe `jan1 <- ISOdate(year, 1, 1, tz = tz(x))`?