
vec_match() and vec_in() check types
====================================

> df1 <- data_frame(x = data_frame(foo = 1))
> df2 <- data_frame(x = data_frame(foo = ""))
> vec_match(df1, df2)
Error: Can't combine `x$foo` <double> and `x$foo` <character>.

> vec_match(df1, df2, needles_arg = "n", haystack_arg = "h")
Error: Can't combine `n$x$foo` <double> and `h$x$foo` <character>.

> vec_in(df1, df2)
Error: Can't combine `x$foo` <double> and `x$foo` <character>.

> vec_in(df1, df2, needles_arg = "n", haystack_arg = "h")
Error: Can't combine `n$x$foo` <double> and `h$x$foo` <character>.

