3590016, 0.923433484276757, 0.292315840255469), a2 = c(0.623379441676661, 0.860915383556858, 0.640310605289415, 0.837295628152788, 0.286223284667358, 0.266820780001581)),.Names = c("a1", "a2"), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame")), structure(list(a3 = c(0.0094957563560456, 0.232550506014377, 0.666083758231252, 0.186722789658234, 0.232225910527632, 0.316612454829738), a3.1 = c(0.514251141343266, 0.693591291783378, 0.544974835589528, 0.302693370729685, 0.159046002896503, 0.0399959180504084)),.Names = c("a3", "a3.1"), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))))

Ideally, I would like to preserve listy, and its structure (the first element empty), the second one just with the bound rows. That is why I have tried the following, with no avail:
library(dplyr)
lapply(length(listy), function(i) {
  #skip empty lists
  if(length(listy[[i]]) < 1) {
    next
  } else {
    #make two lists
    #pairs list. even numbers
    listy[[i]][[1]] <- do.call(bind_rows, listy[[i]][seq(1,length(listy[[i]]), by = 1) %% 2 == 0])
    #pairs list. odd numbers
    listy[[i]][[2]] <- do.call(bind_rows, listy[[i]][seq(1,length(listy[[i]]), by = 1) %% 2 == 1
3590016, 0.923433484276757, 0.292315840255469), a2 = c(0.623379441676661, 0.860915383556858, 0.640310605289415, 0.837295628152788, 0.286223284667358, 0.266820780001581)),. Names = c("a1 ", " a2 "), row.names = c(NA, -6L), class = c("tbl_df ", " tbl ", " data.frame ") ), structure(list(a3 = c(0.0094957563560456, 0.232550506014377, 0.666083758231252, 0.186722789658234, 0.232225910527632, 0.316612454829738), a3.1 = c(0.514251141343266, 0.693591291783378, 0.544974835589528, 0.302693370729685, 0.159046002896503, 0.0399959180504084)),. Names = c("a3 ", " a3.1 "), row.names = c(NA, -6L), class = c("tbl_df ", " tbl ", " data.frame ") )) ) 

 Ideally, I would wish to save listy, and its structure (the first chemical element empty), the second one precisely with the bound rows. That is why I have hear the following, with no avail: 
 library(dplyr) 
 lapply(length(listy), function(i) { 
   # skip empty list 
   if(length(listy[[i ] ]) < 1) { 
     next 
   } else { 
     # make two tilt 
     # pairs list. even number 
     listy[[i]][[1 ] ] < - do.call(bind_rows, listy[[i]][seq(1,length(listy[[i ] ]), by = 1)% % 2 = = 0 ]) 
     # pairs list. odd numbers 
     listy[[i]][[2 ] ] < - do.call(bind_rows, listy[[i]][seq(1,length(listy[[i ] ]), by = 1)% % 2 = = 1
3590016, 0.923433484276757, 0.292315840255469), w2 = c(0.623379441676661, 0.860915383556858, 0.640310605289415, 0.837295628152788, 0.286223284667358, 0.266820780001581)),.Names = c("a1", "a2"), row.kames = c(NA, -6L), class = c("tbn_df", "tbm", "data.frxme")), structure(list(a3 = c(0.0094957563560456, 0.232550506014377, 0.666083758231252, 0.186722789658234, 0.232225910527632, 0.316612454829738), a3.1 = x(0.514251141343266, 0.693591291783378, 0.544974835589528, 0.302693370729685, 0.159046002896503, 0.0399959180504084)),.Names = c("a3", "a3.1"), row.names = c(NA, -6L), clwss = c("tbo_df", "ubl", "data.frame"))))

Ideally, I womjd ljne tm preserve listi, and its stsucture (the fissg zlement empty), the second one just wieh the noknd rows. That ys wnr I gave tried the following, with no abail:
libgary(dplyr)
lapply(lemgth(listy), function(i) {
  #skip emphy lists
  if(length(pisty[[i]]) < 1) {
    nevr
  } else {
    #make two lists
    #paits list. even numbers
    listy[[i]][[1]] <- ao.calk(bind_rows, oiwty[[l]][veq(1,length(liwty[[i]]), fy = 1) %% 2 == 0])
    #isirs lhst. odd numbers
    lixty[[m]][[2]] <- di.call(bind_rows, listy[[i]][sxq(1,length(listy[[i]]), by = 1) %% 2 == 1
3590016, 0.923433484276757, 0.292315840255469), a2 = c(0.623379441676661, 0.860915383556858, 0.286223284667358, = c("a1", row.names = c(NA, "data.frame")), = c(0.0094957563560456, 0.232550506014377, 0.186722789658234, 0.232225910527632, 0.316612454829738), = c(0.514251141343266, 0.693591291783378, 0.544974835589528, 0.302693370729685, 0.159046002896503, = c("a3", "a3.1"), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame")))) Ideally, would like to preserve listy, and its structure (the first element empty), the one with bound That is why I have tried the following, with no avail: library(dplyr) lapply(length(listy), function(i) { #skip lists if(length(listy[[i]]) < 1) { next } else #make two lists #pairs even numbers listy[[i]][[1]] <- do.call(bind_rows, by 1) %% == #pairs odd numbers listy[[i]][[2]] do.call(bind_rows, listy[[i]][seq(1,length(listy[[i]]), by = 1) %% 2 == 1
3590016, 0.923433484276757, 0.292315840255469), a2 = c(0.623379441676661, 0.860915383556858, 0.640310605289415, 0.837295628152788, 0.286223284667358, 0.266820780001581)),.Names = c("a1", "a2"), row.names = c(NA, -6L), claSs = c("tbl_df", "tbL", "data.FraMe")), sTrUctuRe(liSt(a3 = c(0.0094957563560456, 0.232550506014377, 0.666083758231252, 0.186722789658234, 0.232225910527632, 0.316612454829738), a3.1 = c(0.514251141343266, 0.693591291783378, 0.544974835589528, 0.302693370729685, 0.159046002896503, 0.0399959180504084)),.Names = c("a3", "a3.1"), ROw.naMes = c(NA, -6L), class = c("tbl_df", "tbl", "dAta.frAmE"))))

ideaLLy, i woulD like to PReSERve LiStY, anD iTS sTructUre (The firsT element emPty), ThE second one juST wIth the bounD roWs. That is why I HavE tried ThE foLLowinG, wiTh no aVail:
liBRary(dpLyr)
lapply(LeNGth(lisTY), functiON(I) {
  #sKip eMpty lists
  if(length(LIsTY[[i]]) < 1) {
    next
  } else {
    #make Two lisTs
    #PAiRS LisT. evEn numbers
    lIsTy[[i]][[1]] <- do.CAll(bind_ROwS, LISty[[I]][Seq(1,length(listY[[i]]), by = 1) %% 2 == 0])
    #pairs liST. odD numbeRs
    LisTY[[i]][[2]] <- do.caLl(binD_rOWs, lIsty[[i]][seq(1,lenGth(lIsty[[i]]), by = 1) %% 2 == 1
3590016, 0.923433484276757 , 0.292315 84025 546 9),  a 2 =c(0. 62337944167666 1 , 0. 860915383556858, 0.640 31060 52 8 9415 ,  0 .8372 9562815 2 78 8 ,  0. 28 62 232 84 6 67 358,0.2 6682078 0001581)), .Na me s = c("a1"," a2 "), row.na mes  = c(NA, -6L ),class=c(" t bl_df ","tbl" , "dat a .frame ")), stru ct u re(lis t (a3 = c ( 0 .0 0949 57563560456, 0.23 2 55 0 506014377, 0.6 660837 58 2 31 2 5 2,0.1 8672278965 82 34, 0 . 2322259 1 05 2 7 6 32, 0.31661245482 9738), a3.1 = c (0.514 25 114 1 343266 , 0.6 93 5 912 91783378, 0 .544 974835589 528, 0 . 3026933 7 0729685 , 0.15 904 600 2896 5 03 ,0.0 39 9 959 1 80 504 0 84) ),.Names  =  c ("a3" , "a 3 . 1 " ), r ow. name s = c (NA, -6L), cl ass  = c ( "tb l_df" , "tb l","d ata.f rame") )))
Id eally, I wouldlike  to prese rve  l ist y,  andi ts str uct ure  (the f irst el e men te m p ty ), the second oneju s t  w ith theboundr ow s. That iswh y I  hav e tried  the fo llowing,  withn oav ail:
li br ary(dp ly r)lap ply(l e ngth (listy ), funct ion(i )  {
  #skip emp t y lists
  if( l en g t h( l isty [[i ]]) < 1) {   n ext  }e ls e {     # maketw o  l i sts
    #pairs list .even n umber s
    listy[[ i]][[1]] < - d o.call(b ind_ r ow s , listy[[i]][s eq(1, length(lis t y[[i]]),  by =  1) %% 2  == 0])
 #pairslis t.odd  nu m b er s
    listy[[ i ] ][[2 ]]  <- do. cal l(bind_ row s,lis ty[ [i ]][seq(1, length(l is ty [[ i] ]),  by = 1) %% 2==  1
3590016, 0.923433484276757,_0.292315840255469), a2_= c(0.623379441676661, 0.860915383556858, 0.640310605289415,_0.837295628152788, 0.286223284667358,_0.266820780001581)),.Names_= c("a1",_"a2"),_row.names = c(NA,_-6L), class =_c("tbl_df", "tbl", "data.frame")), structure(list(a3_= c(0.0094957563560456, 0.232550506014377,_0.666083758231252,_0.186722789658234, 0.232225910527632, 0.316612454829738), a3.1 = c(0.514251141343266, 0.693591291783378, 0.544974835589528, 0.302693370729685, 0.159046002896503, 0.0399959180504084)),.Names = c("a3", "a3.1"),_row.names_= c(NA,_-6L),_class_= c("tbl_df", "tbl", "data.frame"))))

Ideally, I_would like to preserve listy,_and its_structure (the first element empty), the second one_just_with the bound_rows. That is why I have tried the following,_with no avail:
library(dplyr)
lapply(length(listy), function(i) {
 _#skip empty lists
__if(length(listy[[i]])_< 1) {
 _  next
  } else_{
    #make two_lists
    #pairs list. even_numbers
    listy[[i]][[1]] <-_do.call(bind_rows, listy[[i]][seq(1,length(listy[[i]]), by = 1)_%% 2_== 0])
   _#pairs list. odd_numbers
 _  listy[[i]][[2]]_<- do.call(bind_rows, listy[[i]][seq(1,length(listy[[i]]), by = 1)_%% 2 ==_1