Nothing
test_tax <- total_tax_add (data_table = iotable_get(),
tax_names = c("net_tax_products", "net_tax_production"),
total_tax_name = "total_tax")
test_that("total_tax_add() adds together tax rows into a single row", {
expect_true("total_tax" %in% as.character(unlist(test_tax[,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.