Add day of the week to str
.
str <- '200046'
as.Date(paste0(str, 1), "%Y%U%u")
#[1] "2000-11-13"
This is 1st day (Monday) of 46th week of 2000.
Now to get all days of the week you can do :
as.Date(paste0(str, 1), "%Y%U%u") + 0:6
#[1] "2000-11-13" "2000-11-14" "2000-11-15" "2000-11-16" "2000-11-17" "2000-11-18" "2000-11-19"
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…