Come gestite i dati R interni a un pacchetto?

Question

Il pacchetto R che sto sviluppando richiede diversi oggetti di dati R, come modelli e parametri pre-calcolati.

Attualmente ho ogni oggetto nella directory 'data' del pacchetto in singoli file .RData. Quando si utilizza il pacchetto, gli utenti possono utilizzare la funzione "dati" per collegare questi oggetti al proprio ambiente.

Il comportamento che vorrei invece sarebbe che al momento del caricamento del pacchetto gli oggetti dati siano automaticamente collegati all'ambiente del pacchetto interno e non accessibili direttamente all'utente.

La mia comprensione è che l'immissione di un file "sysdata.rda" nella directory "R" del pacchetto contenente gli oggetti attualmente in "data" mi darà il risultato desiderato. Tuttavia, esiste un modo per fare in modo che io possa avere ogni oggetto in un file separato invece di raggruppare insieme?

Answer 1

È possibile utilizzare il gancio .onLoad() per chiamare data() durante il caricamento del pacchetto e specificare lo spazio dei nomi del pacchetto come ambiente in cui caricare gli oggetti dati.

Supponendo di avere i file model1.R e mydata.RData nella data/ directory del vostro pacchetto chiamato foopkg, definire la funzione

.onLoad <- function(libname, pkgname) { 
    data("model1", "mydata", package=pkgname, envir=parent.env(environment())) 
} 

da qualche parte nel vostro pacchetto (ad esempio in foopkg-package.R).

Dopo aver costruito e installato il pacchetto,

> library(foopkg) 
> ls(loadNamespace("foopkg")) 

dovrebbe dimostrare che i vari oggetti di dati sono stati caricati con successo nello spazio dei nomi pacchetto, cioè visibile a funzioni nel pacchetto, ma non inquinare l'ambiente globale.

Answer 2

Inserire il file sysdata.rda nella directory data del pacchetto.

Non utilizzare pigro dati - file DESCRIZIONE deve o non ha una linea per LazyData, o, se lo fa, dovrebbe essere LazyData: no

In qualsiasi file .R nella directory R del pacchetto aggiungere una linea come questa

data(sysdata, envir=environment()) 

ho creato un data.frame chiamato sysdata ed è salvato in un file chiamato sysdata.rda nella directory dei dati di un pacchetto chiamato anRpackage

Ho aggiunto la riga sopra a un file .R e ho anche aggiunto questa funzione non illustrata solo per mostrare che le funzioni nel pacchetto hanno accesso ai dati.

foo <- function() tail(sysdata, 2) 

poi vedo il seguente una sessione di R

> library(anRpackage) 
> sysdata 
Error: object 'sysdata' not found 

> anRpackage:::sysdata 
    A B C 
1 1 6 a 
2 2 7 b 
3 3 8 c 
4 4 9 d 
5 5 10 e 

> anRpackage:::foo() 
    A B C 
4 4 9 d 
5 5 10 e 

Così, gli utenti hanno ancora accesso ai dati, ma come da voi richiesto, non hanno diretta accesso. L'utente ha ancora la possibilità di eseguire data(sysdata).