我可以在不从文件中完全加载对象的情况下访问 R 数据对象的属性吗？

Question

情况是这样的。我的R 代码应该检查应用程序缓存 中现有的RData 文件是否是最新的。我通过保存名称由特定数据元素的base64 编码名称组成的文件来做到这一点。但是，通过为每个元素提交特定的 SQL 查询来检索与这些元素中的每一个相对应的数据，所有这些都在数据集合的配置文件中指定。因此，在检索到元素的数据但之后我不得不更改特定 SQL 查询的情况下，数据不会被更新。

为了处理这种情况，我决定使用R 对象的属性。我打算把每个数据对象对应的SQL查询（request）——base64-encoded——保存为对象的属性：

# save hash of the request's SQL query as data object's attribute,
# so that we can detect when configuration contains modified query
attr(data, "SQL") <- base64(request)

然后，当我需要验证 SQL 是否已经被查询更改时，我想简单地检索对象的相应属性并将其与当前 SQL 查询的哈希进行比较。如果它们匹配 - 查询未更改，我跳过处理此数据请求，如果它们不匹配 - 查询已更改，我继续处理请求：

# check if the archive file has already been processed
if (DEBUG) {message("Processing request \"", request, "\" ...")}
if (file.exists(rdataFile)) {
  # now check if request's SQL query hasn't been modified
  data <- load(rdataFile)
  if (identical(base64(request), attr(data, "SQL"))) {
    skipped <<- skipped + 1
    if (DEBUG) {message("Processing skipped: .Rdata file found.\n")}
    return (invisible())
  }
  rm(data)
}

我的问题是是否可以在不完全加载文件的情况下读取/访问对象的属性。换句话说，我可以避免上面代码中的load()和rm()吗？

非常感谢您的建议！

更新：附加问题：我的代码有什么问题，因为即使它不应该执行处理 - 以防所有信息都是最新的（缓存和配置文件也没有更改）？

更新 2（每个 @MrFlick 的答案的附加代码）：

# construct name from data source prefix and data ID (see config. file),
# so that corresponding data object (usually, data frame) will be saved
# later under that name via save()
dataName <- paste(dsPrefix, "data", indicator, sep = ".")

assign(dataName, srdaGetData())
data <- as.name(dataName)

# save hash of the request's SQL query as data object's attribute,
# so that we can detect when configuration contains modified query
attr(data, "SQL") <- base64(request)

# save current data frame to RData file
save(list = dataName, file = rdataFile)
# alternatively, use do.call() as in "getFLOSSmoleDataXML.R"

# clean up
rm(data)

Answer 1

你不能“真的”这样做，但你可以修改我的cgwtools::lsdata函数中的代码。

function (fnam = ".Rdata") 
{
    x <- load(fnam, envir = environment())
    return(x)
}

这会加载，因此需要时间并短暂占用内存，然后本地环境消失。因此，为要检查属性的项目添加一个参数，在函数内添加一行 attributes(your_items) ->y ; return (list(x=x,y=y))

Answer 2

您使用load() 的方式存在问题。当您使用 save/load 时，您可以将多个对象“冻结”到 .RData 文件中。他们“重新膨胀”到当前的环境中。因此，当您调用load() 时，它不会返回对象，而是返回一个字符向量，其中包含它恢复的所有对象的名称。由于您没有提供您的 save() 代码，我不确定您的加载文件中实际包含什么，但如果它是一个名为 data 的变量，那么只需调用

load(rdataFile)

不是

data <- load(rdataFile)