Question

我正在尝试将可变日期与一段文本结合起来，使其看起来如下所示：

time <- c(end_date_override="20180531")

这是我的代码：

bb <- Sys.Date()-1
b1 <- paste("c(end_date_override","",sep = "=")
b1<-noquote(b1)
b2 <- as.character(bb)
b3 <- paste(b1,b2)

这不会给出格式为c(end_date_override="20180531")

的结果

感谢您的建议。

先谢谢了。

Answer 1

那又怎么样：

bb <- format(Sys.Date()-1,'%Y%m%d')
b1 <- paste("c(end_date_override=",bb,")", sep='"')
b1 <- noquote(b1)
b1  
[1] c(end_date_override="20180628")

Answer 2

要获取命名字符作为时间，可以使用以下代码。第一行是您需要的。其他人正在显示结果。

b3 <- setNames(as.character(Sys.Date()-1), "end_date_override")

b3
end_date_override 
     "2018-06-28" 

str(b3)
 Named chr "2018-06-28"
 - attr(*, "names")= chr "end_date_override"

文字清理和合并

2 个答案: