# NOT RUN {
w <- date2week(Sys.Date(), week_start = "Sunday")
w
# convert to POSIX
as.POSIXlt(w)
as.POSIXlt(w, floor_day = TRUE)
as.POSIXlt(w, floor_day = TRUE, tz = "KST")
# convert to date
as.Date(w)
as.Date(w, floor_day = TRUE)
# convert to character (strip attributes)
as.character(w)
# }
Run the code above in your browser using DataLab