library(sparklyr)
library(apache.sedona)
sc <- spark_connect(master = "spark://HOST:PORT")
if (!inherits(sc, "test_connection")) {
tbl <- dplyr::tbl(
sc,
dplyr::sql("SELECT ST_GeomFromText('POINT(-71.064544 42.28787)') AS `pt`")
)
spark_write_geojson(
tbl %>% dplyr::mutate(id = 1),
output_location = "/tmp/pts.geojson"
)
}
Run the code above in your browser using DataLab