如何在R语言中运行遗传编程生成的多行规则代码？

问题描述 #

我正在编写一个遗传程序，用于演化规则以在智能体模型中控制智能体行为。该智能体模型以函数形式实现，接受文本格式的规则，将其插入代码中运行并返回结果以测试适应度：

ABM <- function(evolvedRule){

#setup agents etc...

eval(parse(text = evolvedRule))

return(result)

}

当前规则是通过paste()拼接的简单‘IF 条件 THEN 动作’语句，但我希望添加多个ELSE IF条件，这类条件通常需多行代码实现。现提出两个问题：

1. 使用paste()生成包含多个else if的超长单行R代码是否可行？
2. 还有哪些方法可以生成多行代码并传入ABM函数中运行？

解答 #

1. 使用paste()生成多else if的单行代码是否可行？ #

完全可行。R的语法允许将多行if/else if结构压缩为单行，只需用分号;分隔不同代码块即可。例如，用paste()拼接出的字符串可以是这样：

evolvedRule <- paste(
  "if (condition1) { action1; }",
  "else if (condition2) { action2; }",
  "else if (condition3) { action3; }",
  "else { defaultAction; }",
  sep = " "
)

生成的单行代码能被eval(parse(text = ...))正确解析执行，不会出现语法问题。唯一需要注意的是超长代码的可读性，但对于程序自动生成的规则来说，可读性并非核心需求，只要语法合规就可以正常运行。

2. 生成多行代码传入ABM函数的其他方法 #

除了paste()，还有几种更灵活的实现方式：

• paste0()结合换行符\n：直接在拼接字符串中加入换行符，生成结构更接近传统多行代码的文本，示例如下：

  evolvedRule <- paste0(
    "if (condition1) {\n  action1\n}\n",
    "else if (condition2) {\n  action2\n}\n",
    "else {\n  defaultAction\n}"
  )
  

  这种方式生成的字符串保留了换行结构，方便调试时查看规则代码，eval(parse(...))同样能正确处理带换行的文本。
• 临时文件读写：如果规则逻辑复杂，可以用cat()将规则代码写入临时文件，再通过readLines()读取完整内容作为字符串传入ABM函数：

  tempFile <- tempfile(fileext = ".R")
  cat(
    "if (condition1) {",
    "  action1",
    "}",
    "else if (condition2) {",
    "  action2",
    "}",
    sep = "\n",
    file = tempFile
  )
  evolvedRule <- paste(readLines(tempFile), collapse = "\n")
  unlink(tempFile) # 用完后删除临时文件
  

• stringr::str_c()拼接：stringr包的str_c()函数比基础paste()更简洁，支持向量拼接，也能轻松加入换行符生成多行代码：

  library(stringr)
  evolvedRule <- str_c(
    "if (condition1) { action1 }",
    "else if (condition2) { action2 }",
    "else { defaultAction }",
    sep = "\n"
  )
  

• R 4.0+ 多行字符串语法：R 4.0及以上版本支持用"""包裹多行字符串，适合手动测试规则；如果是遗传程序自动生成规则，仍需程序拼接，但可作为参考：

  evolvedRule <- """
  if (condition1) {
    action1
  } else if (condition2) {
    action2
  } else {
    defaultAction
  }
  """
  

内容的提问来源于stack exchange，提问作者ThomasC