Add a cbind method for tbl_df? about tibble HOT 12 CLOSED

Browse[1]> orpha_ext_id_extractor(x$ExternalReferenceList)
# A tibble: 1 × 2
  ICD_10   OMIM
   <chr>  <chr>
1  Q77.3 607131
Browse[1]> d
# A tibble: 1 × 4
                                           name Orpha_id DisorderFlag name_variants
                                          <chr>    <chr>        <chr>        <list>
1 Multiple epiphyseal dysplasia, Al-Gazali type   166024          476     <chr [1]>
Browse[1]> cbind(d,
        orpha_ext_id_extractor(x$ExternalReferenceList)
  ) %>% str
'data.frame':	1 obs. of  6 variables:
 $ name         : chr "Multiple epiphyseal dysplasia, Al-Gazali type"
 $ Orpha_id     : chr "166024"
 $ DisorderFlag : chr "476"
 $ name_variants:List of 1
  ..$ Synonym: chr "Multiple epiphyseal dysplasia-macrocephaly-distinctive facies syndrome"
 $ ICD_10       : chr "Q77.3"
 $ OMIM         : chr "607131"

cbind.tbl_df = function(...) {
  #data table related?
  if (!identical(class(..1), "data.frame")) {
   for (x in list(...)) {
     if (inherits(x, "data.table"))
       return(data.table::data.table(...))
   }
  }

  #obvious attempt
  # data_frame(...)
  #Error in lazyeval::lazy_dots(...) : Promise has already been forced 
  #dont know what this means
  
  #another attempt
  #list(...) %>% set_names("x" + seq_along(.)) %>% as_data_frame
  #Error: Each variable must be a 1d atomic vector or list.

  #maybe hack solution...
  #data.frame(..., check.names = FALSE) %>% as_data_frame
  #this vectorizes the list column yielding 3 rows instead of 1
  
  #make a long named list, then to d_f
  l = list(...)
  
  #we need to know whether to remove one level of lists
  #otherwise we would remove list columns supplied to the function
  df_vec = map_lgl(l, inherits, "data.frame")
  
  #works but complicated!
  # #peel one layer of the dfs
  # l2 = do.call(what = c, args = list(l[[which(df_vec)]]))
  # 
  # #join with the other arguments without peeling off a layer
  # l3 = c(l[which(!df_vec)], l2)
  # 
  # #finally, convert to d_f
  # l3 %>% as_data_frame
  
  #loop
  l4 = list()
  for (i in seq_along(l)) {
    #peel or not
    if (df_vec[i]) {
      #peel
      l4 = c(l4, l[[i]])
    } else {
      #not
      l4 = c(l4, l[i])
    }
  }
  
  l4 %>% as_data_frame
}

> cbind(v = 0, d = data_frame(a = 1), l = list(1:3))
# A tibble: 1 × 3
      v     a         l
  <dbl> <dbl>    <list>
1     0     1 <int [3]>