R - readRDS() 和 load() 无法提供与原始数据相同的 data.tables

Question

背景

我试图更换一些 CSV输出文件 rds文件以提高效率。这些是中间文件，将用作其他 R 脚本的输入。

问题

我开始调查我的脚本何时失败并发现 readRDS()和 load()不要返回相同的 data tables作为原件。这是应该发生的吗？还是我错过了什么？

示例代码

library( data.table )

aDT <- data.table( a=1:10, b=LETTERS[1:10] )
saveRDS( aDT, file = "aDT.rds")
bDT <- readRDS( file = "aDT.rds" )
identical( aDT, bDT, ignore.environment = T )  # Gives 'False'

aDF <- data.frame( a=1:10, b=LETTERS[1:10] )
saveRDS( aDF, file = "aDF.rds")
bDF <- readRDS( file = "aDF.rds" )
identical( aDF, bDF, ignore.environment = T )  # Gives 'True'

# Using 'save'& 'load' doesn't help either
aDT2 <- data.table( a=1:10, b=LETTERS[1:10] )
save( aDT2, file = "aDT2.RData")
bDT2 <- aDT2; rm( aDT2 )
load( file = "aDT2.RData" )
identical( aDT2, bDT2, ignore.environment = T )  # Gives 'False'

我在 Linux Mint 上运行 R ver 3.2.0 并且已经测试过 data.table版本 1.9.4 和 1.9.5(最新)。

在 SO 和 google 中搜索返回 this和 this但我认为他们没有回答这个问题。当我切换到 rds 时，我仍在试图弄清楚为什么我的脚本失败了。但我从这个开始。

如果知识渊博的 SO 成员可以提供帮助，将不胜感激。谢谢!

编辑:

大家好，我碰巧找到了解决问题的方法 - 在下面发布了解决方案。如果它相当不优雅，我深表歉意。现在，我还有两个问题:

(1) 有没有更好的方法？

(2) 可以在 R 做些什么吗？和/或 data.table解决这个问题的代码？我的意思是，这个问题会导致不可预知的错误，并不是首先想到的事情。我的 2 美分。

Answer 1

可能，这与指针有关:

 attributes(aDT)
$names
[1] "a" "b"

$row.names
 [1]  1  2  3  4  5  6  7  8  9 10

$class
[1] "data.table" "data.frame"

$.internal.selfref
<pointer: 0x0000000000390788>

> attributes(bDT)
$names
[1] "a" "b"

$row.names
 [1]  1  2  3  4  5  6  7  8  9 10

$class
[1] "data.table" "data.frame"

$.internal.selfref
<pointer: (nil)>

> attributes(bDF)
$names
[1] "a" "b"

$row.names
 [1]  1  2  3  4  5  6  7  8  9 10

$class
[1] "data.frame"

> attributes(aDF)
$names
[1] "a" "b"

$row.names
 [1]  1  2  3  4  5  6  7  8  9 10

$class
[1] "data.frame"

您可以使用 .Internal(inspect(.)) 仔细查看正在发生的事情命令:

.Internal(inspect(aDT))

 .Internal(inspect(bDT))