Nothing
test_that("bfs_get_asset_metadata() returns a none-empty list", {
asset_number_metadata <- bfs_get_asset_metadata(number_asset = "24367729")
expect_type(asset_number_metadata, "list")
expect_gt(length(asset_number_metadata), 1)
})
test_that("bfs_get_asset_metadata() returns a none-empty list", {
asset_bfs_metadata <- bfs_get_asset_metadata(number_bfs = "px-x-1502040100_131")
expect_type(asset_bfs_metadata, "list")
expect_gt(length(asset_bfs_metadata), 1)
})
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.