if (FALSE) {
example_beancount_file <- system.file("extdata", "example.beancount", package = "ledger")
net_worth(example_beancount_file)
net_worth(example_beancount_file, c("2016-01-01", "2017-01-01", "2018-01-01"))
}
Run the code above in your browser using DataLab