make CRAN happy

Signed-off-by: Yitao Li <yitao@rstudio.com>

DESCRIPTION

@@ -11,14 +11,14 @@ Maintainer: Yitao Li <yitao@rstudio.com>
 Description: Load WARC (Web ARChive) files into Apache Spark using 'sparklyr'. This
     allows to read files from the Common Crawl project <http://commoncrawl.org/>.
 License: Apache License 2.0
-BugReports: https://github.com/javierluraschi/sparkwarc
+BugReports: https://github.com/r-spark/sparkwarc
 Encoding: UTF-8
 LazyData: true
 Imports:
     DBI,
     sparklyr,
     Rcpp
-RoxygenNote: 6.0.1
+RoxygenNote: 7.1.1
 LinkingTo:
     Rcpp,
 SystemRequirements: C++11

NAMESPACE

@@ -7,6 +7,8 @@ export(spark_read_warc)
 export(spark_read_warc_sample)
 export(spark_warc_sample_path)
 import(DBI)
+import(Rcpp)
 import(sparklyr)
+importFrom(utils,download.file)
 importFrom(utils,read.table)
 useDynLib(sparkwarc, .registration = TRUE)

R/package.R

@@ -0,0 +1,8 @@
+#' sparkwarc
+#'
+#' Sparklyr extension for loading WARC Files into Apache Spark
+#'
+#' @docType package
+#' @import Rcpp
+#' @name sparkwarc
+NULL

R/sample.R

@@ -16,12 +16,12 @@ spark_warc_sample_path <- function() {
 rcpp_read_warc_sample <- function(filter = "", include = "") {
   sample_warc <- spark_warc_sample_path()
 
-  sparkwarc:::rcpp_read_warc(sample_warc, filter, include)
+  rcpp_read_warc(sample_warc, filter, include)
 }
 
 #' Loads the sample warc file in Spark
 #'
-#' @param An active \code{spark_connection}.
+#' @param sc An active \code{spark_connection}.
 #' @param filter A regular expression used to filter to each warc entry
 #'   efficiently by running native code using \code{Rcpp}.
 #' @param include A regular expression used to keep only matching lines

R/sparkwarc.R

@@ -20,6 +20,7 @@
 #'
 #' @examples
 #'
+#' \dontrun{
 #' library(sparklyr)
 #' sc <- spark_connect(master = "spark://HOST:PORT")
 #' df <- spark_read_warc(
@@ -31,9 +32,11 @@
 #' )
 #'
 #' spark_disconnect(sc)
+#'}
 #'
-#' @export
 #' @import DBI
+#' @importFrom utils download.file
+#' @export
 spark_read_warc <- function(sc,
                             name,
                             path,
@@ -87,7 +90,7 @@ spark_read_warc <- function(sc,
           spark_apply_log("finished downloading warc file")
         }
 
-        result <- sparkwarc::spark_rcpp_read_warc(path, match_warc, match_line)
+        result <- spark_rcpp_read_warc(path, match_warc, match_line)
 
         if (!is.null(temp_warc)) unlink(temp_warc)
 

src/Makevars

@@ -0,0 +1 @@
+PKG_LIBS=-lz