Как преобразовать дату строки символов в класс даты, если значение дня отсутствует

Я пытаюсь преобразовать следующие даты в класс времени в R. По какой-то причине я получаю возврат NA, когда значение дня не включено. Я хотел бы иметь возможность обрабатывать этот вектор символов как есть без необходимости вставлять произвольное значение дня, если это возможно. Спасибо за вашу помощь.

TS <- c("2004-12", "2005-01", "2005-02", "2005-03", "2005-04", "2005-05", 
"2005-06", "2005-07", "2005-08", "2005-09", "2005-10", "2005-11", 
"2005-12", "2006-01", "2006-02", "2006-03", "2006-04", "2006-05", 
"2006-06", "2006-07", "2006-08")
TSd <- paste(TS, "01", sep="-")

#doesn't work
as.Date(TS, format="%Y-%m")
as.POSIXlt(TS, format="%Y-%m")

#works
as.Date(TSd, format="%Y-%m-%d")
as.POSIXlt(TSd, format="%Y-%m-%d")