“parse”在交互和非交互模式下的行为不同

我认为这可能是一个错误parse，但想检查一下是否还有其他人有更好的主意。在交互模式（RStudio）下，以下代码可以正常工作：

txt <- 'c("", {
  c(integer(3L), 1:3)           
  c(integer(), 1:3, 1L)         # TRUE
  c(integer(), c(1, 2, 3), 1L)  # TRUE
} )
c("", {
  lst <- list(list( 1,  2), list( 3, list( 4, list( 5, list(6, 6.1, 6.2)))))
} )
c("", {
  TRUE
} )'
saveRDS(
  attr(parse(text=txt, keep.source=TRUE), "srcfile")$parseData, 
  paste0("~/parsecomp", interactive())
)

但是如果我运行完全相同的代码（runtests.R 仅包含上面的代码）：

R --vanilla < tests/runtests.R 

The two rds交互式运行原始代码与非交互式运行原始代码生成的文件应该是相同的，但是：

> non.interactive <- readRDS("~/parsecompFALSE")
> interactive <- readRDS("~/parsecompTRUE")
> length(interactive)
[1] 1280
> which(interactive != non.interactive)
[1] 1176
> interactive[which(interactive != non.interactive)]
[1] 0
> non.interactive[which(interactive != non.interactive)]
[1] 234
> identical(attributes(non.interactive), attributes(interactive))
[1] TRUE

parseData 结果几乎相同（标记、文本等），但有一项不同（我相信attr(parse(x), "srcFile")$parseData代表每个令牌的父 ID）。因此，出于某种原因，在非交互模式下运行会错误地分配一个令牌的父 ID。

我已将产生解析错误的代码从数百行减少到上面的代码。几乎对代码的任何进一步更改/简化都会导致解析差异消失。

任何人都知道可能导致这种情况发生的原因是什么？

这一切都在：

setting  value                       
version  R version 3.1.1 (2014-07-10)
system   x86_64, darwin13.1.0        
ui       RStudio (0.97.551)        

根据 MrFlick 的建议，这里是存储结果的输出getParseData（请注意，我重新使用与上面相同的变量名称来存储结果）：

> subset(interactive, parent != non.interactive$parent)
    line1 col1 line2 col2  id parent token terminal text
226     6    5     8    7 226      0  expr    FALSE     
> subset(interactive, parent != non.interactive$parent)
    line1 col1 line2 col2  id parent token terminal text
226     6    5     8    7 226      0  expr    FALSE     
> subset(non.interactive, parent != interactive$parent)
    line1 col1 line2 col2  id parent token terminal text
226     6    5     8    7 226    234  expr    FALSE     
> subset(non.interactive, id == 234)
    line1 col1 line2 col2  id parent token terminal text
234     9    9     9    9 234    251   ','     TRUE    ,

请注意如何parent非交互式版本的值出现在解析的文件中的更下方（问题表达式的第 9 行与第 6 行，我认为这应该不可能）。

更新：我能够更简单地重新创建问题，甚至不需要非交互式版本。从一个干净的 R 会话开始，其中尚未执行任何操作（未加载包等），运行：

txt <- 'c("", {
  c(integer(3L), 1:3)
  c(integer(), 1:3, 1L)         # TRUE
  c(integer(), c(1, 2, 3), 1L)  # TRUE
} )
c("", {
  lst <- list(list( 1,  2), list( 3, list( 4, list( 5, list(6, 6.1, 6.2)))))
} )
c("", {
  TRUE
} )'
prs1 <- parse(text=txt, keep.source=TRUE)
prs2 <- parse(text=txt, keep.source=TRUE)
which(attr(prs1, "srcfile")$parseData != attr(prs2, "srcfile")$parseData)

重现错误。我已将此事报告给 R devel，看看他们是否对此有何评论。