R 中是否有类似于 Python 的 % 的字符串格式化运算符？

Question

我有一个 URL，我需要发送一个使用日期变量的请求。 https 地址采用日期变量。我想使用 Python 中的格式化运算符 % 将日期分配给地址字符串。 R有类似的操作符还是我需要依赖paste()？

# Example variables
year = "2008"
mnth = "1"
day = "31"

这就是我在 Python 2.7 中要做的事情：

url = "https:.../KBOS/%s/%s/%s/DailyHistory.html" % (year, mnth, day)

或者在 3.+ 中使用 .format()。

我唯一知道在 R 中做的事情似乎很冗长并且依赖于粘贴：

url_start = "https:.../KBOS/"
url_end = "/DailyHistory.html"
paste(url_start, year, "/", mnth, "/", day, url_end) 

有更好的方法吗？

Answer 1

R 中的等价物是sprintf:

year = "2008"
mnth = "1"
day = "31"
url = sprintf("https:.../KBOS/%s/%s/%s/DailyHistory.html", year, mnth, day)
#[1] "https:.../KBOS/2008/1/31/DailyHistory.html"

另外，虽然我认为这有点矫枉过正，但你也可以自己定义一个运算符。

`%--%` <- function(x, y) {

  do.call(sprintf, c(list(x), y))

}

"https:.../KBOS/%s/%s/%s/DailyHistory.html" %--% c(year, mnth, day)
#[1] "https:.../KBOS/2008/1/31/DailyHistory.html"

Answer 2

作为sprintf 的替代方案，您可能需要查看glue。

更新：在stringr 1.2.0 中，他们添加了glue::glue()、str_glue() 的包装函数

library(glue)

year = "2008"
mnth = "1"
day = "31"
url = glue("https:.../KBOS/{year}/{mnth}/{day}/DailyHistory.html")

url

#> https:.../KBOS/2008/1/31/DailyHistory.html

Answer 3

stringr 包具有str_interp() 函数：

year = "2008"
mnth = "1"
day = "31"
stringr::str_interp("https:.../KBOS/${year}/${mnth}/${day}/DailyHistory.html")

[1] "https:.../KBOS/2008/1/31/DailyHistory.html"

或使用列表（注意现在传递的是数值）：

stringr::str_interp("https:.../KBOS/${year}/${mnth}/${day}/DailyHistory.html", 
                            list(year = 2008, mnth = 1, day = 31))

[1] "https:.../KBOS/2008/1/31/DailyHistory.html"

顺便说一句，也可以传递格式化指令，例如，如果月份字段需要两个字符宽：

stringr::str_interp("https:.../KBOS/${year}/$[02i]{mnth}/${day}/DailyHistory.html", 
                    list(year = 2008, mnth = 1, day = 31))

[1] "https:.../KBOS/2008/01/31/DailyHistory.html"