Nothing
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")
# })
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.