test_format_QIF <- function(tbl) {
expect_equal(colnames(tbl), CNSTtransactionCols)
expect_equal(vapply(tbl, class, character(1L), USE.NAMES = FALSE), CNSTtransactionTypes)
}
qif <- readQIF(file.path('..', 'testdata', 'money.qif'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.