avoid using st_join()

Author: javierluraschi

tests/testthat/test-st_join.R

@@ -6,9 +6,9 @@ test_requires("knitr")
 
 test_that("st_join() works", {
     expect_known_output({
-        st_join(st_example(sc, "polygons") %>% dplyr::select(area, geom_x = geom) ,
-                st_example(sc, "points") %>% dplyr::select(city, state, geom_y = geom) ,
-                join = sql("st_contains(`geom_x`,`geom_y`)")) %>%
+        inner_join(st_example(sc, "polygons") %>% dplyr::select(area, geom_x = geom) ,
+                   st_example(sc, "points") %>% dplyr::select(city, state, geom_y = geom) ,
+                   sql_on = sql("st_contains(`geom_x`,`geom_y`)")) %>%
             collect() %>%
             knitr::kable()
     }