1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
testthat::context("SPARQL Queries")
doc <- system.file("extdata/example.rdf", package="redland")
out <- "testing.rdf"
testthat::test_that("we can make CONSTRUCT queries", {
testthat::skip("No test for SPARQL CONSTRUCT")
## No errors but no return either, not sure
## what the correct construction is.
## currently registers as a skipped test.
rdf <- rdf()
rdf_add(rdf,
"http://carlboettiger.info",
"http://schema.org/name",
"Carl Boettiger")
sparql <- 'CONSTRUCT { ?x ?p ?o . }
WHERE { ?x ?p ?o . }'
rdf_query(rdf, sparql, data.frame = FALSE)
rdf_free(rdf)
})
testthat::test_that("we can make sparql queries", {
sparql <-
'PREFIX dc: <http://purl.org/dc/elements/1.1/>
SELECT ?a ?c
WHERE { ?a dc:creator ?c . }'
rdf <- rdf_parse(doc)
match <- rdf_query(rdf, sparql)
testthat::expect_length(match, 2)
rdf_free(rdf)
})
testthat::test_that("SPARQL handles data types", {
rdf <- rdf()
rdf_add(rdf, "", "ex:integer", 33L)
rdf_add(rdf, "", "ex:decimal", 3.141)
rdf_add(rdf, "", "ex:decimal", 2.718)
rdf_add(rdf, "", "ex:logical", TRUE)
rdf_add(rdf, "", "ex:Date", Sys.Date())
rdf_add(rdf, "", "ex:POSIXct", Sys.time())
rdf_add(rdf, "", "ex:factor", as.factor("text"))
rdf_add(rdf, "", "ex:string", "text")
## Select ?s as well to avoid silly warning
testthat::expect_is(rdf, "rdf")
match <- rdf_query(rdf, 'SELECT ?o ?s WHERE { ?s <ex:Date> ?o }')
testthat::expect_type(match$o[[1]], "double")
testthat::expect_is(match$o[[1]], "Date")
match <- rdf_query(rdf, 'SELECT ?o ?s WHERE { ?s <ex:POSIXct> ?o }')
testthat::expect_is(match$o[[1]], "POSIXct")
testthat::expect_type(match$o[[1]], "double")
match <- rdf_query(rdf, 'SELECT ?o ?s WHERE { ?s <ex:decimal> ?o }')
testthat::expect_is(match$o[[1]], "numeric")
testthat::expect_type(match$o[[1]], "double")
## readr fails to detect "true" as a logical
#match <- rdf_query(rdf, 'SELECT ?o ?s WHERE { ?s <ex:logical> ?o }')
#testthat::expect_is(match$o[[1]], "logical")
#testthat::expect_type(match$o[[1]], "logical")
match <- rdf_query(rdf, 'SELECT ?o ?s WHERE { ?s <ex:integer> ?o }')
testthat::expect_is(match$o[[1]], "numeric")
testthat::expect_type(match$o[[1]], "double")
match <- rdf_query(rdf, 'SELECT ?o ?s WHERE { ?s <ex:string> ?o }')
testthat::expect_is(match$o[[1]], "character")
testthat::expect_type(match$o[[1]], "character")
## Matching mixed type results in all types treated as character
# vector, since o is a single column....
match <- rdf_query(rdf, 'SELECT ?s ?p ?o WHERE { ?s ?p ?o }')
testthat::expect_is(match$o, "character")
testthat::expect_is(match, "data.frame")
rdf_free(rdf)
})
unlink(out)
|
