Question

我正在整理一个我已经工作了近一年的套餐。我有一个我称之为音节查找功能所需的哈希表。哈希表实际上只是一个查找表的环境（我想我不是计算机专家）。您可以在下面看到我创建它的功能。我有一个数据集DICTIONARY（约20,000字），将在加载包时加载。我还要将这个DICTIONARY传递给哈希函数，以便在加载包时创建新环境;像env <- hash(DICTIONARY)这样的东西就像我现在加载环境一样。如何在加载包时启动函数，以便为使用我的包的人创建这个新环境？

hash <- function(x, type = "character") {
    e <- new.env(hash = TRUE, size = nrow(x), parent = emptyenv())
    char <- function(col) assign(col[1], as.character(col[2]), envir = e)
    num <- function(col) assign(col[1], as.numeric(col[2]), envir = e)
    FUN <- if(type=="character") char else num
    apply(x, 1, FUN)
    return(e)
}

#currently how I load the environment with the DICTIONARY lookup table
env <- hash(DICTIONARY)

如果它有用，那么这是DICTIONARY的负责人：

    word syllables
1     hm         1
2    hmm         1
3   hmmm         1
4   hmph         1
5  mmhmm         2
6   mmhm         2
7     mm         1
8    mmm         1
9   mmmm         1
10   pff         1

许多人可能会想“这取决于用户是否希望加载环境”。有效点，但此包的目标受众是识字领域的人。在该领域中R用户并不多，所以我必须尽可能简单地使用它。只是想了解我为什么要这样做的理念，以便它不会成为争论的焦点。

提前谢谢你。（PS我看过这本手册（LINK）但似乎无法找到关于这个主题的任何信息）

修改：根据安德烈的建议，我认为会是这样的吗？但我不确定。这是否在包加载中的所有其他函数和数据集之后加载？这个东西对我来说有点混乱。

.onLoad <- function(){
   env <- hash(DICTIONARY)
}

Answer 1

如果哈希值不经常更改（从您的问题描述中看起来就是这种情况），那么将哈希值保存到包源树中

save(env, file="<my_pkg>/R/sysdata.rda")

安装软件包后，env将在名称空间my_pkg:::env内可用。参见＆＃34;编写R扩展＆＃34;的1.1.3节。你可能有一个脚本，比如＆＃34; /inst/scripts/make_env.R"创建env，并且您作为开发人员在需要更新env的极少数情况下使用。

另一种可能性是散列更改，但仅限于程序包安装。然后解决方案是编写在包安装时评估的代码。所以在文件/R/env.R中写下了

的内容

env <- local({
    localenv <- new.env(parent=emptyenv())
    ## fill up localenv, then return it
    localenv[["foo"]] = "bar"
    localenv
})

.onLoad解决的可能性是，每次加载包时数据都会发生变化，例如，因为它正在从某个在线源检索更新。

env <- new.env(parent=emptyenv())

.onLoad <- function(libname, pkgname)
{
    ## fill up env
    env[["foo"]] = "bar"
}

在包中包含“哈希表”

1 个答案: