Nothing
context("datasetReference")
with_mock_crunch({
ds <- cachedLoadDataset("test ds")
ds_url <- self(ds)
test_that("datasetReference methods", {
expect_identical(ds_url, "https://app.crunch.io/api/datasets/1/")
expect_identical(datasetReference(ds), ds_url)
expect_identical(datasetReference(ds$gender), ds_url)
expect_identical(datasetReference(ds$mymrset$subvar1), ds_url)
expect_identical(datasetReference(ds$gender == "Male"), ds_url)
expect_identical(datasetReference(multitables(ds)), ds_url)
expect_identical(datasetReference(multitables(ds)[[1]]), ds_url)
expect_null(datasetReference(1))
expect_null(datasetReference("not a ds url"))
expect_identical(
datasetReference(
"https://app.crunch.io/api/datasets/1/variables/mymrset/subvariables/subvar1"
),
ds_url
)
})
})
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.