StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>As it currently stands, you cannot <code>dput</code> this object. The code of <code>dput</code> contains the following loop:</p> <pre><code>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() } </code></pre> <p>This handles S4 objects recursively, but it relies on the assumption an S3 object will not contain an S4 object, which in your example does not hold:</p> <pre><code>> isS4(slot(poly.d,'polygons')) [1] FALSE > isS4(slot(poly.d,'polygons')[[1]]) [1] TRUE </code></pre> <p><strong>Edit:</strong> Here is a work-around the limitations of <code>dput</code>. It works for the example you provided, but I don't think that it will work in general (e.g. it does not handle attributes).</p> <pre><code>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)) } </code></pre> <p>And here it is in action:</p> <pre><code>> dput2(poly.d,file=(tempFile <- tempfile())) > poly.d2 <- dget(tempFile) > all.equal(poly.d,poly.d2) [1] TRUE </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload