tests/testthat/test-ds_search_sql.R

In ckanr: Client for the Comprehensive Knowledge Archive Network ('CKAN') API

context("ds_search_sql")

skip_on_cran()

u <- "http://data.nhm.ac.uk/"
r <- "8f0784a6-82dd-44e7-b105-6194e046eb8d"

#FIXME: I don't think SQL is supported any more on this CKAN 
## find another CKAN instance

# if (r == "") {
#   did <- package_list(limit = 1, url = u)[[1]]
#   pkg <- package_show(did, url = u)
#   r <- pkg$resources[[1]]$id
# }

# test_that("ds_search_sql gives back expected class types", {
#   check_ckan(u)
#   check_resource(u,r)
#   sql = paste0('SELECT * from "', r, '" LIMIT 2')
#   a <- ds_search_sql(sql, url=u)
#   expect_is(a, "list")
# })

# test_that("ds_search_sql works giving back json output", {
#   check_ckan(u)
#   check_resource(u,r)
#   sql = paste0('SELECT * from "', r, '" LIMIT 2')
#   b <- ds_search_sql(sql, url=u, as="json")
#   expect_is(b, "character")
#   b_df <- jsonlite::fromJSON(b)
#   expect_is(b_df, "list")
# })