Nothing
context("Testing drop_get_metadata")
test_that("Able to retrieve metadata for file in multiple ways", {
skip_on_cran()
# upload new file to root
file_name <- traceless("test-drop-get-metadata.csv")
write.csv(mtcars, file_name)
drop_upload(file_name)
# lookup by path
metadata <- drop_get_metadata(file_name)
expect_is(metadata, "list")
expect_equal(metadata$.tag, "file")
# lookup by id
expect_identical(metadata, drop_get_metadata(metadata$id))
# lookup by revision
expect_identical(metadata, drop_get_metadata(paste0("rev:", metadata$rev)))
# delete
drop_delete(file_name)
# get deleted metadata
deleted_metadata <- drop_get_metadata(file_name, include_deleted = TRUE)
expect_is(deleted_metadata, "list")
expect_equal(deleted_metadata$.tag, "deleted")
expect_identical(
metadata[c("name", "path_lower", "path_display")],
deleted_metadata[c("name", "path_lower", "path_display")]
)
# cleanup
unlink(file_name)
})
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.