<<<<<<< HEAD
context("download")
## TODO: Add more tests
test_that("download works", {
x <- baixa_img_audio()
expect_is(x, 'list')
expect_length(x, 2L)
})
=======
context("download")
## TODO: Add more tests
>>>>>>> 4650a73e7e71f5cc3e2028c2b667bb8b4be1cce7
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.