如何在 r 中使用列表为 sprintf 提供参数

Question

我正在尝试自动化一些填充我拥有的一些通用文本的代码。例如，我可能有两个字符串，其中包含不同数量的数字占位符。当前设置代码的方式需要传递字符串必须添加到其中的值的数量。如果我能以某种方式解压一个列表，以便它在 sprintf 中提供 ...，那么我可以跳过所有丑陋的 if 语句。

谢谢各位！

text_1 <- "This is a number %.1f"
text_2 <- "This is a number %.1f and this %.1f"

v1 <- 0.1
v2 <- 0.5
type = 1

if(type == 1)sprintf(text_1, v1)
if(type == 2)sprintf(text_2, v1, v2)

# ideally
l <- list(v1, v2)
sprint(text_2, unlist(l)) # something like unlist.

Answer 1

我们可以使用reduce

library(purrr)
reduce(l, sprintf, fmt = text_2)
#[1] "This is a number 0.1 and this 0.5"

---

可以封装在函数中

f1 <- function(params, txt){
      reduce(params, sprintf, fmt = txt)
  }

f1(l, text_1)
#[1] "This is a number 0.1"

f1(l, text_2)
#[1] "This is a number 0.1 and this 0.5"