Fatal编程技术网
  • r/
  • R 文本清理与合并

R 文本清理与合并

r

R 文本清理与合并,r,text-processing,R,Text Processing,我试图将可变日期与一段文本结合起来，使其如下所示： time <- c(end_date_override="20180531") time关于： 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") bb要获取命名字符作为时间，可

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

time <- c(end_date_override="20180531")

time关于：


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")



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


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"



b3您的预期回报是多少？命名字符的时间与您定义的时间相同。或者，如果您希望返回包含bb中数据的文本？请使用我定义的时间命名字符？我希望它采用应用于bb的日期，并创建如下命名字符：-c（end_date_override=“20180627”）非常感谢。真的很感激：）不客气！这就是你一直在寻找的解决方案吗？如果没有，可以尝试其他方法。

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"