Hi guys,
This seems wrong:
> x <- list(2, numeric())
> relist(unlist(x), x)
[[1]]
[1] 2
[[2]]
[1] NA 2
Here is the definition:
function (flesh, skeleton = attr(flesh, "skeleton"))
{
ind <- 1L
result <- skeleton
for (i in seq_along(skeleton)) {
size <- length(unlist(result[[i]]))
result[[i]] <- relist(flesh[ind:(ind + size - 1L)], result[[i]])
ind <- ind + size
}
result
}
That should probably use seq(..., length=size) or something instead of the
":" function.
Thanks,
Michael
[[alternative HTML version deleted]]
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
