if (Sys.which("ledger") != "") {
example_ledger_file <- system.file("extdata", "example.ledger", package = "ledger")
dfl <- register(example_ledger_file)
head(dfl)
}
if (Sys.which("hledger") != "") {
example_hledger_file <- system.file("extdata", "example.hledger", package = "ledger")
dfh <- register(example_hledger_file)
head(dfh)
}
if (Sys.which("bean-query") != "") {
example_beancount_file <- system.file("extdata", "example.beancount", package = "ledger")
dfb <- register(example_beancount_file)
head(dfb)
}
Run the code above in your browser using DataLab