depreciation_printer <- depreciation(
type="Depreciation",
category="Office",
name="Printer",
amount=100,
obsolete=36,
invest_month="2019.04"
)
# turn depreciation object into an expense
depreciation_as_expense_printer <- as_transaction(
depreciation_printer,
to="expense",
aspect="depreciation"
)
Run the code above in your browser using DataLab