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") })