将年-周对象转换为日期，并将其传递给应用程序中的dateRangeInput（）

假设我有一个年和周的向量，比如：

yw因为日期是年-周格式的，使用
paste
在末尾使用一个虚拟的星期日，转换为
Date
类，并获得日期的
范围，可以在
dateRangeInput
中用作
start
和
end

v1 <- range(as.Date(paste0(yw, 1), format = '%Y-%W%w'),  na.rm = TRUE)
v1
#[1] "2020-01-27" "2021-04-05"

如果我这样做的原因：as.Date（yw，格式=“%Y-%W”）我得到“2020-05-06”“2020-05-06”“2020-05-06”。这似乎是错误的。这是今天的日期，而我已经过了2020年的第一、第二和第三周。对不起，它也应该有一周。用粘贴更新1是什么意思？@firmo23表示工作日1号。因为我们不知道从一周中的哪一天开始。可能是星期一、星期二、星期三，，，。星期五，当我想用你的代码来表示我的实际向量时，我在strtime（x，format，tz=“GMT”）：（基于0）2020年的yday 369是无效的，因此得到了NAs
v1 <- range(as.Date(paste0(yw, 1), format = '%Y-%W%w'),  na.rm = TRUE)
v1
#[1] "2020-01-27" "2021-04-05"

..
fluidPage(
  dateRangeInput("daterange1", "Date range:",
                 start = v1[1],
                 end   = v1[2]),...
..