Nothing
context("webApp")
with_mock_crunch({
ds <- cachedLoadDataset("test ds")
test_that("Dataset URLs", {
with(temp.options(crunch = list(crunch.api = "https://fake.crunch.io/api/v2/")), {
expect_identical(
APIToWebURL(ds),
"https://fake.crunch.io/dataset/1"
)
})
expect_identical(
datasetReference(paste0(
"https://app.crunch.io/dataset/b6c2325a8de9438ebab5d9a42d376b90/",
"browse/eyJhcHBTdGF0ZVN0b3JlIjp0cnVlLCJhbmFseXplIjp7fSwidmFyaWFib",
"GVzTmF2aWdhdG9yIjp7Iml0ZW0iOiIvZWU2NTI0YWFjMzFiNDkyZjk4M2ZiYzM0M",
"GJjODYzYzkvIn19"
)),
"https://app.crunch.io/api/datasets/b6c2325a8de9438ebab5d9a42d376b90/"
)
expect_identical(
datasetReference(paste0(
"https://app.crunch.io/dataset/3f57d1924a914176b24969bc6cc9059d?",
"variableId=000194"
)),
"https://app.crunch.io/api/datasets/3f57d1924a914176b24969bc6cc9059d/"
)
expect_null(datasetReference("Not actually a URL"))
expect_null(datasetReference(c("Not actually", "a URL")))
})
test_that("Variable URL", {
expect_identical(
APIToWebURL(ds$gender),
paste0(
"https://app.crunch.io/dataset/1/browse?variableId=66ae9881e3524",
"f7db84970d556c34552"
)
)
})
test_that("webApp errors correctly", {
expect_error(
webApp(mtcars),
"Web URL is not available for objects of class data.frame"
)
})
})
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.