R：使用正则表达式定义文本范围

Question

我需要一种方法来调用依赖于文本中字符串的已定义变量。 假设我有五个变量（r010、r020、r030、r040、r050）。 如果有该形式的给定文本"r010-050" 我想要所有五个变量的值的总和。

整个文本看起来像"{r010-050} == {r060}" 该等式的第一部分需要替换为五个变量的总和，并且由于 r060 也是一个变量，因此结果（通过解析文本）应该是一个逻辑值。

我认为正则表达式将再次在这里提供帮助。 任何人都可以帮忙吗？ 谢谢。

Answer 1

定义输入：变量r010 等我们假设是标量和字符串s。

然后定义一个匹配 {...} 部分的模式pat 和一个函数Sum，它接受pat 中的3个捕获组（即与括号内的pat 部分匹配的字符串）并执行所需的总和。

使用 gsubfn 匹配模式，将捕获组传递给 Sum 并将匹配替换为 Sum 的输出。然后评价一下。

在示例中，全局环境中名称介于 r010 和 r050（含）之间的唯一变量是 r010 和 r020（如果它们存在，它会使用更多）并且因为它们总和为 @987654333 @ 它返回 TRUE。

library(gsubfn)

# inputs
r010 <- 1; r020 <- 2; r060 <- 3
s <- "{r010-050} == {r060}"

pat <- "[{](\\w+)(-(\\w+))?[}]"
Sum <- function(x1, x2, x3, env = .GlobalEnv) {
  x3 <- if(x3 == "") x1 else paste0(gsub("\\d", "", x1), x3)
  lst <- ls(env)
  sum(unlist(mget(lst[lst >= x1 & lst <= x3], envir = env)))
}
eval(parse(text = gsubfn(pat, Sum, s)))
## [1] TRUE