Выполнение скриптов R во время установки пакета

Question

Надеюсь, у этого есть прямой ответ, но я пока не смог его найти.

Я пишу пакет R, и когда он установлен в Windows, я хочу, чтобы он выполнял скрипт, который ищет системный файл, то есть list.files(path = "C:/Program Files/, ...), а затем сохраняет этот путь в каталог пакета в виде текстового файла для последующей ссылки.

Я попытался сохранить сценарий как src/install.libs.R, но это остановило мой пакет от здания.

В случае, если есть альтернативное решение, я пытаюсь сохранить путь к файлу javaw.exe, который находится в каталоге файлов программы (где-то!), Так что я могу быстро вызов его функций с помощью system2().

Answer 1

Для этого нет крюка в R: выполнение кода во время установки.

Существует, однако, целый набор крючков для загрузки или крепления пакета. Я часто использую для этого .onLoad(). См. , например. как RcppGSL помнит, что линкер и флаг компилятора использовать - от R/inline.R:

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

.onLoad <- function(libname, pkgname) { 

    if (.Platform$OS.type=="windows") { 
     LIB_GSL <- Sys.getenv("LIB_GSL") 
     gsl_cflags <- sprintf("-I%s/include", LIB_GSL) 
     gsl_libs <- sprintf("-L%s/lib -lgsl -lgslcblas", LIB_GSL) 
    } else { 
     gsl_cflags <- system("gsl-config --cflags" , intern = TRUE) 
     gsl_libs <- system("gsl-config --libs" , intern = TRUE) 
    } 

    assign("gsl_cflags", gsl_cflags, envir=.pkgglobalenv) 
    assign("gsl_libs", gsl_libs, envir=.pkgglobalenv) 
} 

Далее в этом файле, как использовать их:

LdFlags <- function(print = TRUE) { 
    if (print) cat(.pkgglobalenv$gsl_libs) else .pkgglobalenv$gsl_libs 
} 

CFlags <- function(print = TRUE) { 
    if (print) cat(.pkgglobalenv$gsl_cflags) else .pkgglobalenv$gsl_cflags 
}