fix deploy bugs

Author: Harry Zhu

.Rbuildignore

@@ -1,2 +1,4 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^\.travis\.yml$
+Reference.md$

DESCRIPTION

@@ -5,7 +5,7 @@ Version: 0.2.1
 Author: Harry Zhu
 Maintainer: Harry Zhu <7harryprince@gmail.com>
 BugReports: https://github.com/harryprince/geospark/issues
-Description: R binds geospark extending sparklyr R package to make geocomputing easier.
+Description: R binds geospark extending sparklyr R package to make distributed geocomputing easier.
 License: Apache License
 Encoding: UTF-8
 LazyData: true

NAMESPACE

@@ -5,3 +5,4 @@ export(st_example)
 export(st_join)
 import(dplyr)
 import(sparklyr)
+import(utils)

R/dependencies.R

@@ -28,7 +28,7 @@ spark_dependencies <- function(spark_version, scala_version, ...) {
   )
 }
 
-#' @import sparklyr
+#' @import sparklyr dplyr
 .onLoad <- function(libname, pkgname) {
   sparklyr::register_extension(pkgname)
 }

R/register_gis.R

@@ -1,14 +1,17 @@
 #' @title Enable GIS SQL
 #' @name register_gis
 #' @import sparklyr
-#' @param sc a sparklyr connection
+#' @param sc a spark connection
 #' @description 
 #' register_gis: to enable spark geospark sql in sc, the more GIS SQL references could be found at https://github.com/harryprince/geospark/blob/master/Reference.md
 #' @examples
 #' \dontrun{
 #' register_gis(sc)
 #' point = DBI::dbGetQuery(sc,"SELECT ST_GeomFromWKT('POINT(40.7128,-74.0060)') AS geometry")
 #' }
+#' 
+#' @return a GIS spark connection
+#' 
 #' @export
 register_gis <- function(sc) {
     sparklyr::invoke_static(sc,"org.datasyslab.geosparksql.utils.GeoSparkSQLRegistrator","registerAll",spark_session(sc))

R/st_example.R

@@ -1,5 +1,8 @@
 #' Spark geometry example.
 #'
+#' @param sc an object of spark connection
+#' @param geom a string of geometry type 
+#'
 #' @examples
 #' \dontrun{
 #' library(sparklyr)
@@ -10,6 +13,8 @@
 #' }
 #' @details geometry can be  "polygons" or "points"
 #' 
+#' @return a data.frame contains wkt format column example
+#' 
 #' @export
 st_example <- function(sc, geom = "polygons") {
     geoms <- read.table(system.file(package="geospark",sprintf("examples/%s.txt",geom)), sep="|")

R/st_join.R

@@ -3,9 +3,12 @@
 #' @import dplyr
 #' @param x a spark spatial data frame
 #' @param y a spark spatial data frame
+#' @param join join condition
 #' @description 
 #' st_join: spatial join 
 #' 
+#' @import utils
+#' 
 #' @details alternative values for argument join are: ST_Contains, ST_Intersects, ST_Within, ST_Equals, ST_Crosses, ST_Touches, ST_Overlaps, ST_Distance
 #' 
 #' @return a spark spatial data frame, joined based on geometry
@@ -14,15 +17,17 @@
 #' \dontrun{
 #' 
 #' library(dplyr)
-#' polygons <- read.table(system.file(package="geospark","examples/polygons.txt"), sep="|", col.names=c("area","geom"))
-#' points <- read.table(system.file(package="geospark","examples/points.txt"), sep="|", col.names=c("city","state","geom"))
+#' polygons <- read.table(system.file(package="geospark","examples/polygons.txt"),
+#'                        sep="|", col.names=c("area","geom"))
+#' points <- read.table(system.file(package="geospark","examples/points.txt"),
+#'                        sep="|", col.names=c("city","state","geom"))
 #' polygons_wkt <- copy_to(sc, polygons)
 #' points_wkt <- copy_to(sc, points)
 
 #' polygons_wkt <- mutate(polygons_wkt, y = st_geomfromwkt(geom))
 #' points_wkt <- mutate(points_wkt, x = st_geomfromwkt(geom))
 
-#' sc_res = st_join(polygons_wkt, points_wkt, join = sql("st_contains(y,x)"))
+#' sc_res <- st_join(polygons_wkt, points_wkt, join = sql("st_contains(y,x)"))
 #'     group_by(area, state) %>%
 #'     summarise(cnt = n()) 
 #' }