as_tibble_row()

[krlmlr]

Like as_tibble(), but expects atomics of length 1 or arbitrary objects and always wraps the latter with list(). Useful to undo the effects of dplyr::rowwise().

as_tibble_row(a = 1) == tibble(a = 1)
as_tibble_row(data = iris) == tibble(data = list(iris))

[jennybc]

Maybe related? tidyverse/purrr#264

[jennybc]

Connected to #219 presumably?

[garrettgman]

as_tibble_row() would smooth something that confuses new R users: why is as.list() required to turn a named vector into a rowwise data frame?

named_vec <- c(uno = 1, dos = 2, tres = 3)
# uno  dos tres 
#   1    2    3 

data.frame(as.list(named_vec))
#   uno dos tres
# 1   1   2    3

One awkward place this shows up is when rowbinding lists of vectors.

(vec_list <- list(named_vec, named_vec, named_vec))
## [[1]]
##  uno  dos tres 
##    1    2    3 
## 
## [[2]]
##  uno  dos tres 
##    1    2    3 
## 
## [[3]]
##  uno  dos tres 
##    1    2    3 

vec_list %>%
  map(as.list) %>%
  map_dfr(~.x)
## # A tibble: 3 x 3
##     uno   dos  tres
##   <dbl> <dbl> <dbl>
## 1     1     2     3
## 2     1     2     3
## 3     1     2     3

[mkoohafkan]

Wondering if this function could also solve the issue presented here, i.e., better control over handling mixed atomic and list columns when coercing to tibble:

d = data.frame(x = 1:10, y = 1.5*(1:10) + rnorm(10))
ex = list(label = "A", number = 1L, model = lm(y ~ x, data = d))
as_tibble(ex)     # vectorizes the model data, which I don't want

ex$model = list(ex$model)
as_tibble(ex)     # works as desired

[krlmlr]

@mkoohafkan: Sure, once we have this you should be able to use as_tibble_row(!!!ex).

I'm not sure if this is still relevant, though, given that we are transitioning away from rowwise().

@garrettgman: I'm not sure how as_tibble_row() would help the vector -> list issue. Maybe map_dfr() could coerce to lists?

Vote to close this issue.

[jennybc]

I was never motivated by the rowwise() argument, just because I never started using rowwise().

I still think it's worth considering as_tibble_row() so that there's a concise as_tibble()-y way to get the last result here, instead of the frustrations encountered in all the other approaches here:

library(tibble)

as_tibble(list(a =  1:2, b = letters[3:5]))
#> Error: Column `a` must be length 1 or 3, not 2

as_tibble(c(a =  1:2, b = letters[3:5]))
#> # A tibble: 5 x 1
#>   value
#> * <chr>
#> 1 1    
#> 2 2    
#> 3 c    
#> 4 d    
#> 5 e

tibble(list(a =  1:2, b = letters[3:5]))
#> # A tibble: 2 x 1
#>   `list(a = 1:2, b = letters[3:5])`
#>   <list>                           
#> 1 <int [2]>                        
#> 2 <chr [3]>

## this is what I actually want
tibble(a =  list(1:2), b = list(letters[3:5]))
#> # A tibble: 1 x 2
#>   a         b        
#>   <list>    <list>   
#> 1 <int [2]> <chr [3]>

Created on 2018-07-16 by the reprex package (v0.2.0.9000).

I note that map_dfr() would require dplyr, so is not a part of purrr that people can use in "low dependency" mode.

[krlmlr]

as_tibble() now turns a vector into a one-row tibble. Does this resolve the issue at hand?

[mkoohafkan]

@krlmlr, it looks like the change resolves the row vs. column assumption when creating a tibble from a named vector as in the example by @garrettgman , but it doesn't address @jennybc or my examples for more intuitive handling of list columns. I still think there is a need for as_tibbe_row or similar for the second use case.

[krlmlr]

Postponing.