context("deleteOMLObject")
test_that("deleteOMLObject", {
run = getOMLRun(1)
run.id = uploadOMLRun(run)
expect_error(deleteOMLObject(id = 1, object = "run"), "Run is not owned by you")
expect_error(deleteOMLObject(id = 123456789, object = "run"), "Run does not exists")
# local sanity check (account needs read-write permissions)
skip_on_travis()
del = deleteOMLObject(id = run.id, object = "run")
expect_equal(httr::status_code(del), 200)
expect_error(deleteOMLObject(id = run.id, object = "run"), "Run does not exists")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.