In WinVector/replyr: Patches to Use 'dplyr' on Remote Data Sources

MySQL fails on self-join

Submitted as dplyr issue 2777.

# devtools::install_github("tidyverse/dplyr")
# devtools::install_github('tidyverse/dbplyr')
if(requireNamespace("dbplyr", quietly = TRUE)) {
  packageVersion("dbplyr")
}
packageVersion("RMySQL")
packageVersion("dplyr")
R.Version()$version.string

suppressPackageStartupMessages(library('dplyr'))
sc <- src_mysql('mysql', '127.0.0.1', 3306,
                'root', '')
d <- copy_to(sc, data.frame(x=1:3), 'd')

# copy
d2 <- d %>% 
  filter(TRUE) %>% 
  compute()

# works
left_join(d, d2, by='x')

# throws
left_join(d, d, by='x')