Allo stato attuale, non è possibile dput
questo oggetto. Il codice di dput
contiene il seguente ciclo:
if (isS4(x)) {
cat("new(\"", class(x), "\"\n", file = file, sep = "")
for (n in slotNames(x)) {
cat(" ,", n, "= ", file = file)
dput(slot(x, n), file = file, control = control)
}
cat(")\n", file = file)
invisible()
}
Questo gestisce S4 oggetti in modo ricorsivo, ma si basa sul presupposto di un oggetto S3 non conterrà un oggetto S4, che nel tuo esempio non regge:
> isS4(slot(poly.d,'polygons'))
[1] FALSE
> isS4(slot(poly.d,'polygons')[[1]])
[1] TRUE
Modifica: Ecco una soluzione ai limiti di dput
. Funziona per l'esempio che hai fornito, ma non penso che funzionerà in generale (ad esempio non gestisce gli attributi).
dput2 <- function (x,
file = "",
control = c("keepNA", "keepInteger", "showAttributes")){
if (is.character(file))
if (nzchar(file)) {
file <- file(file, "wt")
on.exit(close(file))
}
else file <- stdout()
opts <- .deparseOpts(control)
if (isS4(x)) {
cat("new(\"", class(x), "\"\n", file = file, sep = "")
for (n in slotNames(x)) {
cat(" ,", n, "= ", file = file)
dput2(slot(x, n), file = file, control = control)
}
cat(")\n", file = file)
invisible()
} else if(length(grep('@',capture.output(str(x)))) > 0){
if(is.list(x)){
cat("list(\n", file = file, sep = "")
for (i in 1:length(x)) {
if(!is.null(names(x))){
n <- names(x)[i]
if(n != ''){
cat(" ,", n, "= ", file = file)
}
}
dput2(x[[i]], file = file, control = control)
}
cat(")\n", file = file)
invisible()
} else {
stop('S4 objects are only handled if they are contained within an S4 object or a list object')
}
}
else .Internal(dput(x, file, opts))
}
e qui è in azione:
> dput2(poly.d,file=(tempFile <- tempfile()))
> poly.d2 <- dget(tempFile)
> all.equal(poly.d,poly.d2)
[1] TRUE
Perché si vuole costruire oggetti in questo modo? Sembra che sarebbe molto meno leggibile rispetto alla scrittura di una funzione che costruisce e restituisce un oggetto modello che è possibile quindi regolare. – Vince
È solo una piccola cosa che ho notato quando ho provato a salvare un piccolo poligono a scopo di test. Sono d'accordo sul fatto che sia più facile avere una matrice n * 2 e una funzione che suona un po 'su di essa. –