I have discovered a workaround by using year, month and day function of lubridate package. With the help of glue::glue, it is easy to do it as following:
require(lubridate)
require(glue)
dt <- "1998-09-02"
glue("{year(dt)}, {month(dt)}, {day(dt)}")
# 1998, 9, 2