时间戳

首页 > 解决方案 > 用胶水补零

r - 用胶水补零

问题描述

我想用来glue完成sprintf('%02d', x)，但我不确定这是否可能。

vignette('transformers')建议一个sprintf类似的变压器sprintf_transformer和“前端”包装器glue_fmt，如下所示：

sprintf_transformer <- function(text, envir) {
  m <- regexpr(":.+$", text)
  if (m != -1) {
    format <- substring(regmatches(text, m), 2)
    regmatches(text, m) <- ""
    res <- eval(parse(text = text, keep.source = FALSE), envir)
    do.call(sprintf, list(glue("%{format}f"), res))
  } else {
    eval(parse(text = text, keep.source = FALSE), envir)
  }
}

glue_fmt <- function(..., .envir = parent.frame()) {
  glue(..., .transformer = sprintf_transformer, .envir = .envir)
}

然后举一个简单的例子：

glue_fmt("π = {pi:.2}")
#> π = 3.14

这似乎依赖惰性评估将调用pi:.2（这是有效的 R 语法）拆分为对sprintf:的调用sprintf('%.2f', pi)。

然而，在我看来，这对于 0 填充的情况是不可能的，因为 R 解析器将消除任何前导 0：

pid = as.integer(pi)
glue_fmt('{pid:02}')
# 3.000000
# vs desired
sprintf('%02d', pid)
# [1] "03"

查看sprintf_transformer,f是硬编码的，因为02dand.2f本身不是有效的 R 语法。我想我们可以glue_fmtd为glue_fmtfsupply or 添加一个参数'd'，但与 plain 相比'f'，这已经使便利因素变得紧张了。glue_fmtsprintf

这仍然无法克服 R 解析器的基本约束——一旦02被视为 R 代码，解析器将丢弃前导 0。

所以，我被困住了——是否有可能以glue一种不太复杂的方式来使用零填充格式？

标签： rr-glue

解决方案

我认为您在变压器中不需要有效的 R 语法。字符串作为字符串处理。你不需要硬核 f 或 d。例如，如果您有

sprintf_transformer <- function(text, envir) {
  m <- regexpr(":.+$", text)
  if (m != -1) {
    format <- substring(regmatches(text, m), 2)
    regmatches(text, m) <- ""
    res <- eval(parse(text = text, keep.source = FALSE), envir)
    do.call(sprintf, list(glue("%{format}"), res))
  } else {
    eval(parse(text = text, keep.source = FALSE), envir)
  }
}

然后你可以做

glue_fmt('{pid:02d}')
# 03
glue_fmt('{pid:0.02f}')
# 3.00

推荐阅读