# ---- nm_fun ----
me_ <- nm_fun("TEST-drive_share")
nm_ <- nm_fun("TEST-drive_share", user_run = FALSE)
# ---- clean ----
if (CLEAN) {
drive_trash(c(
nm_("mirrors-to-share"),
nm_("DESC")
))
}
# ---- setup ----
if (SETUP) {
drive_upload(system.file("DESCRIPTION"), nm_("DESC"))
}
# ---- tests ----
test_that("drive_share() errors for invalid `role` or `type`", {
expect_snapshot(drive_share(dribble(), role = "chef"), error = TRUE)
expect_snapshot(drive_share(dribble(), type = "pet"), error = TRUE)
})
test_that("drive_share() adds permissions", {
skip_if_no_token()
skip_if_offline()
defer_drive_rm(me_("mirrors-to-share"))
file <- drive_upload(
file.path(R.home("doc"), "BioC_mirrors.csv"),
name = me_("mirrors-to-share")
)
expect_false(file$drive_resource[[1]]$shared)
file <- drive_share(file, role = "commenter", type = "anyone")
expect_true(file$shared)
perms <- file[["permissions_resource"]][[1]][["permissions"]]
expect_setequal(map_chr(perms, "role"), c("owner", "commenter"))
expect_setequal(map_chr(perms, "type"), c("user", "anyone"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.