make jsonld an optional dependency

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: rdflib
 Title: Tools to Manipulate and Query Semantic Data
-Version: 0.2.6
+Version: 0.2.7
 Authors@R: c(person("Carl", "Boettiger", 
                   email = "cboettig@gmail.com", 
                   role = c("aut", "cre", "cph"),
@@ -35,7 +35,6 @@ URL: https://github.com/ropensci/rdflib
 BugReports: https://github.com/ropensci/rdflib/issues
 Imports: 
     redland,
-    jsonld,
     methods,
     utils,
     stringi,
@@ -60,6 +59,7 @@ Suggests:
     jsonlite,
     repurrrsive,
     nycflights13,
-    spelling
+    spelling,
+    jsonld
 VignetteBuilder: knitr
 Language: en-US

NAMESPACE

@@ -26,8 +26,6 @@ importClassesFrom(redland,Statement)
 importClassesFrom(redland,Storage)
 importClassesFrom(redland,World)
 importFrom(dplyr,left_join)
-importFrom(jsonld,jsonld_compact)
-importFrom(jsonld,jsonld_to_rdf)
 importFrom(methods,new)
 importFrom(readr,read_csv)
 importFrom(redland,is.null.externalptr)

NEWS.md

@@ -1,3 +1,7 @@
+# rdflib 0.2.7
+
+make jsonld an optional dependency
+
 # rdflib 0.2.6
 
 * bugfix vroom warning

R/rdf_parse.R

@@ -14,7 +14,6 @@
 #'  and model objects
 #' @importClassesFrom redland World Storage Model Parser
 #' @importMethodsFrom redland parseFileIntoModel freeParser
-#' @importFrom jsonld jsonld_to_rdf
 #' @export
 #'
 #' @examples
@@ -50,6 +49,12 @@ rdf_parse <- function(doc,
   ## We use tmp to avoid altering input doc, since parsing a local file should
   ## be a read-only task!
   if(format == "jsonld"){
+
+    has_jsonld <- requireNamespace("jsonld", quietly = TRUE)
+    if (!has_jsonld) {
+      stop("please install the jsonld package to use this functionality.")
+    }
+
     x <- jsonld::jsonld_to_rdf(doc, 
                                options = 
            list(base = getOption("rdf_base_uri", "localhost://"),

R/rdf_serialize.R

@@ -12,7 +12,6 @@
 #' @importFrom methods new
 #' @importClassesFrom redland Serializer
 #' @importMethodsFrom redland setNameSpace serializeToFile freeSerializer
-#' @importFrom jsonld jsonld_compact
 #'
 #' @export
 #' @examples
@@ -86,13 +85,20 @@ rdf_serialize <- function(rdf,
   }
 
   if(jsonld_output){
+
+    has_jsonld <- requireNamespace("jsonld", quietly = TRUE)
+    if (!has_jsonld) {
+      stop("please install the jsonld package to use this functionality.")
+    }
+
+
     txt <- paste(readLines(doc), collapse = "\n")
     if(length(txt) > 0){ ## don't attempt to write empty file into json
       json <- jsonld::jsonld_from_rdf(txt,
                                       options = list(
                                         base = base,
                                         format = "application/nquads"))
-      compact_json <- jsonld_compact(json, "{}")
+      compact_json <- jsonld::jsonld_compact(json, "{}")
       writeLines(compact_json, doc)
     }
   }

inst/WORDLIST

@@ -24,7 +24,6 @@ URI
 URIs
 URNs
 UUIDs
-VM
 Wickham
 XMLSchema
 Zenodo
@@ -34,22 +33,17 @@ bugfix
 charset
 consise
 csv
-dajobe
 datatypes
 dev
-doi
 dsn
 getNextResult
-github
 homebrew
-https
 ifying
 javascript
 json
 jsonld
 ld
 libdb
-librdf
 lossy
 md
 mysql
@@ -69,7 +63,6 @@ readr
 rectangling
 redland
 rofooter
-ropensci
 serializeToFile
 serializer
 serializers
@@ -83,5 +76,5 @@ triplestores
 ubiquitious
 un
 uri
+vroom
 yml
-zenodo

tests/testthat/test-parse-serialize.R

@@ -43,6 +43,8 @@ testthat::test_that("we can add a namespace on serializing", {
 
 
 testthat::test_that("we can parse and serialize json-ld", {
+
+  skip_if_not_installed("jsonld")
   rdf <- rdf_parse(doc)
   rdf_serialize(rdf, "out.json")
   roundtrip <- rdf_parse("out.json")
@@ -130,6 +132,10 @@ testthat::test_that("we can serialize turtle with a baseUri", {
 ## JSON-LD tests with default base uri
 
   testthat::test_that("@id is not a URI, we should get localhost", {
+
+    skip_if_not_installed("jsonld")
+
+
     ex <- '{
       "@context": "http://schema.org/",
       "@id": "person_id",
@@ -142,6 +148,9 @@ testthat::test_that("we can serialize turtle with a baseUri", {
   })
 
   testthat::test_that("@id is a URI, we should not get localhost", {
+
+    skip_if_not_installed("jsonld")
+
     ex <- '{
       "@context": "http://schema.org/",
       "@id": "uri:person_id",
@@ -153,6 +162,10 @@ testthat::test_that("we can serialize turtle with a baseUri", {
   })  
 
   testthat::test_that("we can alter the base URI", {
+
+    skip_if_not_installed("jsonld")
+
+
     ex <- '{
       "@id": "person_id",
       "schema:name": "Jane Doe"

tests/testthat/test-rdf.R

@@ -37,6 +37,9 @@ testthat::test_that("we can concatenate rdfs", {
 
 
 testthat::test_that("we can add, parse and serialize json-ld", {
+
+  skip_if_not_installed("jsonld")
+
   x <- rdf()
   x <- rdf_add(x, 
                subject="http://www.dajobe.org/",