[R] flatten lists

[arun]

Hi,

I hope this helps. Tested to some depth.



x1 <- list(name="Jeroen", age=27, married=FALSE,
home=list(country=list(name="Netherlands", short="NL"), city="Utrecht"))
x2 <- list(name="Jeroen", age=27, married=FALSE,
home=list(country=list(name=list(Country1="Netherlands",Country2="Spain"), short=list("NL","SP")), city="Utrecht"))
x3 <- list(name="Jeroen", age=27, married=FALSE,
home=list(country=list(name=list(Countrygroup= list("Netherlands","Germany"),Country2="Spain"), short=list("NL","SP")), city="Utrecht"))


#recursive function

x4<-lapply(do.call("c",c(x3,list(recursive=TRUE))),FUN=unlist)
 x4[2]<-as.numeric(x4[2])
 x4[3]<-as.logical(x4[3])
x4
$name
[1] "Jeroen"

$age
[1] 27

$married
[1] FALSE

$home.country.name.Countrygroup1
[1] "Netherlands"

$home.country.name.Countrygroup2
[1] "Germany"

$home.country.name.Country2
[1] "Spain"

$home.country.short1
[1] "NL"

$home.country.short2
[1] "SP"

$home.city
[1] "Utrecht"


> identical(x4,flatlist(x3))
[1] TRUE


A.K.







----- Original Message -----
From: Jeroen Ooms <jeroen.ooms at stat.ucla.edu>
To: arun <smartpink111 at yahoo.com>
Cc: R help <r-help at r-project.org>
Sent: Tuesday, June 26, 2012 6:55 PM
Subject: Re: [R] flatten lists

Alright, but I need something recursive for lists with arbitrary deepness.



On Tue, Jun 26, 2012 at 3:37 PM, arun <smartpink111 at yahoo.com> wrote:
> Hi,
>
> Try:
>
> do.call("c",do.call("c",x))
>
> x1<-do.call("c",do.call("c",x))
>  x2<-flatlist(x)
>  identical(x1,x2)
> [1] TRUE
>
>
>
> A.K.
>
>
>
> ----- Original Message -----
> From: Jeroen Ooms <jeroen.ooms at stat.ucla.edu>
> To: Neal Fultz <nfultz at gmail.com>
> Cc: r-help at r-project.org
> Sent: Tuesday, June 26, 2012 6:23 PM
> Subject: Re: [R] flatten lists
>
> Hmm that doesn't seem to work if the original list is nested more than
> 2 levels deep. I should have probably given a better example:
>
> x <- list(name="Jeroen", age=27, married=FALSE,
> home=list(country=list(name="Netherlands", short="NL"), city="Utrecht"))
>
>
>
>
> On Tue, Jun 26, 2012 at 3:04 PM, Neal Fultz <nfultz at gmail.com> wrote:
>> do.call("c", x)
>>
>> maybe?
>>
>> On Tue, Jun 26, 2012 at 02:25:40PM -0700, Jeroen Ooms wrote:
>>> I am looking for a function to flatten a list to a list of only 1
>>> level deep. Very similar to unlist, however I don't want to turn it
>>> into a vector because then everything will be casted to character
>>> vectors:
>>>
>>> x <- list(name="Jeroen", age=27, married=FALSE,
>>> home=list(country="Netherlands", city="Utrecht"))
>>> unlist(x)
>>>
>>> This function sort of does it:
>>>
>>> flatlist <- function(mylist){
>>>   lapply(rapply(mylist, enquote, how="unlist"), eval)
>>> }
>>>
>>> flatlist(x)
>>>
>>> However it is a bit slow. Is there a more native way?
>>>
>>> ______________________________________________
>>> R-help at r-project.org mailing list
>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>