test_that("grafico produtos funciona", {
grafico <- barao::comerciobr_grafico_produtos("Espanha", "anual")
expect_type(grafico, "list")
expect_s3_class(grafico, "ggplot")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.