test_that("sparql2df returns a data.frame", {
endpoint <- "https://lindas.admin.ch/query"
query <- "PREFIX schema:
SELECT * WHERE {
?sub a schema:DataCatalog .
?subtype a schema:DataType .
}"
result_df <- sparql2df(endpoint, query)
expect_equal(class(result_df), "data.frame")
})
test_that("sparql2df returns a data.frame with setting autoproxy=TRUE", {
endpoint <- "https://lindas.admin.ch/query"
query <- "PREFIX schema:
SELECT * WHERE {
?sub a schema:DataCatalog .
?subtype a schema:DataType .
}"
result_df <- sparql2df(endpoint, query,autoproxy = T)
expect_equal(class(result_df), "data.frame")
})