將.JAGS模型文件捆綁在R包中

Question

我正在寫一個使用rjags作為依賴的R包。 我導出的函數需要在內部調用rjags::jags.model("myModel.JAGS") 。

我覺得我應該將myModel.JAGS文件捆綁在exec文件夾中，即使它不是myModel.JAGS 意義上的 “腳本”也是如此。 我應該如何訪問它？

我發現

#'@export
myFunction <- function () {

  # ...

  path <- path.package('myPackage')
  file <- file.path(path, 'exec', 'myModel.JAGS')
  rjags::jags.model(file, ...)

  # ...

}

有點黑，是嗎？

Answer 1

您應該將system.file與您的軟件包名稱一起使用，並將該文件放在inst文件夾中。

inst軟件包時， inst都會復制到package文件夾中，因此，如果您具有mypackage/inst/jags/mymodel.jags則可以執行system.file("jags","mymodel.jags",package="mypackage")以獲取您的Jags文件的路徑。

請注意，如果您使用devtools並在開發模式下加載軟件包而不是進行安裝，則devtools將為system.file加載一些包裝，以在inst/whatever/查找，因此使用此工具的所有內容都將適用於通過load_all加載的卸載軟件包。