r - How can I flatten two lists within a list without using data.table? -

-

i form 1 data.frame lists within list

l1 <- list(a = c(1, 2, 3), b = c(5, 6, 7)) l2 <- list(a = c(11, 22, 33), b = c(15, 16, 17)) l3 <- list(l1, l2) l3  library(data.table)

according 'data.table' manual : "'rbindlist' same do.call("rbind",l), faster"

i achieve 'rbindlist' using r base package

rbindlist need 'do.call' not!

rbindlist(l3)

do.call not want

do.call(rbind, l3)  identical(rbindlist(l3), do.call(rbind, l3))

i'd think calling as.data.frame each time costly. how about?

as.data.frame(do.call(mapply, c(l3, fun=c, simplify=false)))

mapply takes first elements of l3 , applies function fun, 2nd element , on... suppose you'd 2 lists (l3[[1]] , l3[[2]]), you'd do:

mapply(fun=c, l3[[1]], l3[[2]], simplify=false)

here simplify=false makes sure output not converted (or simplified) matrix. it'll list. general case, use do.call , pass our list other arguments function mapply. hope helps.

benchmarking on big data:

ll <- unlist(replicate(1e3, l3, simplify=false), rec=false)  aa <- function() as.data.frame(do.call(mapply, c(ll, fun=c, simplify=false))) bb <- function() do.call(rbind, lapply(ll, as.data.frame))  require(microbenchmark) microbenchmark(o1 <- aa(), o2 <- bb(), times=10)  unit: milliseconds        expr        min         lq     median         uq      max neval  o1 <- aa()   4.356838   4.931118   5.462995   7.623445  20.5797    10  o2 <- bb() 673.773795 683.754535 701.557972 710.535860 724.2267    10  identical(o1, o2) # [1] true

Comments

Post a Comment

Popular posts from this blog

design - Custom Styling Qt Quick Controls -

-
Image
i have custom design qt quick controls. example, change background colour of tool bar, since hate default design. how can that? in qt quick controls, there limited styling available via qt quick control styles items, buttonstyle , checkboxstyle , etc. at moment, other styles require delving qt sources , messing internal details. here complete example of how 1 might modify toolbar's style. main.qml import qtquick 2.1 import qtquick.layouts 1.0 import qtquick.controls 1.0 applicationwindow { toolbar: toolbar { id: toolbar component.oncompleted: toolbar.data[0].item.children = [newrectangle]; property item _newrectangle: rectangle { // rectangle within toolbarstyle's panel // gleaned from: // http://qt.gitorious.org/qt/qtquickcontrols/source/ // c304d741a27b5822a35d1fb83f8f5e65719907ce:src/styles/base/toolbarstyle.qml id: newrectangle anchors.fill: parent...
Read more

Unable to remove the www from url on https using .htaccess -

-
i want remove www site url. ie. https://www.domainname.com.au https://domainname.com.au . i have tried various .htacces code nothing work me. here present code remove www http not work https. rewriteengine on rewritebase / rewritecond %{http_host} ^www\.(.*)$ [nc] rewriterule ^/(.*)$ http://%1/$1 [r=301,l] rewritecond %{https} off rewriterule ^(.*)$ https://domainname.com.au/$1 [r=301,l] rewriterule ^code-of-conducts/(.*)/$ code-of-conducts.php?type=$1 rewriterule ^parents/post-a-job/(.*)/edit/$ parents/post-a-job.php?action=edit&id=$1 rewriterule ^parents/post-a-job/(.*)/$ parents/post-a-job.php?job_type=$1 rewriterule ^parents/open-jobs/(.*)/delete/$ parents/open-jobs.php?action=delete&id=$1 rewriterule ^parent-profile/(.*)/$ parent-profile.php?id=$1 rewriterule ^parents/job-details/(.*)$ parents/job-details.php?applied_id=$1 rewriterule ^sitterprofile/(.*)/$ sitterprofile.php?id=$1 rewriterule ^sitter/job-board/state/(.*)/page/(.*)/$ sitter/job-board.ph...
Read more