Nothing
context("Locking and unlocking edit privileges")
with_test_authentication({
ds <- newDataset(df[, 4, drop = FALSE])
test_that("I can lock the dataset", {
lock(ds)
})
test_that("When the dataset is locked, I can edit dataset metadata", {
expect_error(
name(ds) <- "Locked name",
NA
)
expect_identical(name(ds), "Locked name")
})
test_that("When the dataset is locked, I can't edit variables", {
expect_error(
categories(ds$v4) <- rev(categories(ds$v4)),
"unlock"
)
expect_identical(names(categories(ds$v4)), c("B", "C", "No Data"))
})
test_that("But if I unlock the dataset, I can edit the vars", {
unlock(ds)
expect_error(
categories(ds$v4) <- rev(categories(ds$v4)),
NA
)
expect_identical(names(categories(ds$v4)), c("No Data", "C", "B"))
})
})
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.