rbind functions are too strict about types

[otsaw]

> rbind_list(data.frame(x=1:3), data.frame(x=NA))
Error: incompatible type (data index: 2, column: 'x', was collecting: integer (dplyr::Collecter_Impl<13>), incompatible with data of type: LGLSXP

This works the other way around.

> rbind_list(data.frame(x=NA), data.frame(x=1:3))
   x
1 NA
2  1
3  2
4  3

Integer promotion to numeric doesn't work either way.

I understand if some strictness is a necessary consequence of a speecy C-implementation. However, if possible, there are at least two harmless promotions that I'd expect to happen automatically.

1. Logical due to all NAs should get promoted to whatever type another piece with actual data has.
2. Integers should get promoted to numeric.

[otsaw]

Sorry, I checked the integer promotion to numeric wrong. It does work one way too.

> rbind_list(data.frame(x=0.5), data.frame(x=1:3))
Error: incompatible type (data index: 2, column: 'x', was collecting: numeric (dplyr::Collecter_Impl<14>), incompatible with data of type: INTSXP
> rbind_list(data.frame(x=1:3), data.frame(x=3.5))
    x
1 1.0
2 2.0
3 3.0
4 3.5

[hadley]

Related to #228.

[romainfrancois]

I now get:

> rbind_list(data.frame(x=0.5), data.frame(x=1:3))
    x
1 0.5
2 1.0
3 2.0
4 3.0

and

> rbind_list(data.frame(x=1:3), data.frame(x=NA))
   x
1  1
2  2
3  3
4 NA

[romainfrancois]

I think this is now done.

[otsaw]

Thank you kindly, but not so fast mister. There's still problems with factor and character. I wrote down some test cases that pass with with base::rbind and that I'd expect all to work.

https://gist.github.com/otsaw/9911389

[romainfrancois]

I get :

> .rbind = function(x, y)
+     tryCatch({
+         dplyr::rbind_list(x, y)
+         message("OK")
+     }, error=function(e) print(e))
>
> message("logical --> integer")
logical --> integer
> .rbind(data.frame(x=TRUE), data.frame(x=1L))
OK
> .rbind(data.frame(x=1L), data.frame(x=TRUE))
OK
>
> message("logical --> numeric")
logical --> numeric
> .rbind(data.frame(x=TRUE), data.frame(x=1.5))
.rbind(data.frame(x=1.5), data.frame(x=TRUE))

message("integer --> numeric")
.rbind(data.frame(x=1L), data.frame(x=1.5))
.rbind(data.frame(x=1.5), data.frame(x=1L))

# Not sure if factor should be promoted to character or character to factor.
# base::rbind seems to keep type of the first argument.
message("factor <--> character")
.rbind(data.frame(x="foo"), data.frame(x="foo", stringsAsFactors=FALSE))
.rbind(data.frame(x="foo", stringsAsFactors=FALSE), data.frame(x="foo"))

message("NA --> integer")
.rbind(data.frame(x=NA), data.frame(x=1L))
.rbind(data.frame(x=1L), data.frame(x=NA))

message("NA --> factor")
.rbind(data.frame(x=NA), data.frame(x="foo"))
.rbind(data.frame(x="foo"), data.frame(x=NA))

message("NA --> numeric")
.rbind(data.frame(x=NA), data.frame(x=1.5))
.rbind(data.frame(x=1.5), data.frame(x=NA))

message("NA --> character")
.rbind(data.frame(x=NA), data.frame(x="foo", stringsAsFactors=FALSE))
.rbind(data.frame(x="foo", stringsAsFactors=FALSE), data.frame(x=NA)OK
> .rbind(data.frame(x=1.5), data.frame(x=TRUE))
OK
>
> message("integer --> numeric")
integer --> numeric
> .rbind(data.frame(x=1L), data.frame(x=1.5))
OK
> .rbind(data.frame(x=1.5), data.frame(x=1L))
OK
>
> # Not sure if factor should be promoted to character or character to factor.
> # base::rbind seems to keep type of the first argument.
> message("factor <--> character")
factor <--> character
> .rbind(data.frame(x="foo"), data.frame(x="foo", stringsAsFactors=FALSE))
OK
> .rbind(data.frame(x="foo", stringsAsFactors=FALSE), data.frame(x="foo"))
OK
>
> message("NA --> integer")
NA --> integer
> .rbind(data.frame(x=NA), data.frame(x=1L))
OK
> .rbind(data.frame(x=1L), data.frame(x=NA))
OK
>
> message("NA --> factor")
NA --> factor
> .rbind(data.frame(x=NA), data.frame(x="foo"))
<Rcpp::exception: incompatible type (data index: 2, column: 'x', was collecting: logical (dplyr::Collecter_Impl<10>), incompatible with data of type: factor>
> .rbind(data.frame(x="foo"), data.frame(x=NA))
<Rcpp::exception: incompatible type (data index: 2, column: 'x', was collecting: factor (dplyr::FactorCollecter), incompatible with data of type: logical>
>
> message("NA --> numeric")
NA --> numeric
> .rbind(data.frame(x=NA), data.frame(x=1.5))
OK
> .rbind(data.frame(x=1.5), data.frame(x=NA))
OK
>
> message("NA --> character")
NA --> character
> .rbind(data.frame(x=NA), data.frame(x="foo", stringsAsFactors=FALSE))
<Rcpp::exception: incompatible type (data index: 2, column: 'x', was collecting: logical (dplyr::Collecter_Impl<10>), incompatible with data of type: character>
> .rbind(data.frame(x="foo", stringsAsFactors=FALSE), data.frame(x=NA))
<Rcpp::exception: incompatible type (data index: 2, column: 'x', was collecting: integer (dplyr::Collecter_Impl<16>), incompatible with data of type: logical>

which feels right.

[hadley]

That looks good to me. I'd say that factor + character should always become character, regardless of the order.