context("Create statements")
test_that("Read statements from XBRL data", {
data(xbrl_data_aapl2014)
test_statement <- xbrl_get_statements(xbrl_data_aapl2014)
expect_gt(length(test_statement), 2)
expect_is(test_statement, "statements")
expect_is(test_statement[[1]], "statement")
expect_output(print(test_statement[[1]]), "Financial")
})
context("Merging")
test_that("Merge", {
data(xbrl_data_aapl2013)
data(xbrl_data_aapl2014)
st1 <- xbrl_get_statements(xbrl_data_aapl2013)
st2 <- xbrl_get_statements(xbrl_data_aapl2014)
st_all <- merge(st1, st2)
expect_true( nrow(st_all[[1]]) > nrow(st1[[1]]), "merge" )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.