|
"Rate:", paste0(paste0(rep(" ", maxlen - 2), collapse = ""), names(x), collapse = ""), |
|
"\nTax: ", paste0(paste(lapply(maxlen - len + 1, function(x) paste0(rep(" ", x), collapse = ""))), tmp, collapse = ""), |
|
paste("\nTotal tax:", prettyL(sum(x)), sep = spacer), |
|
if (adj) paste("\nPay adjustment:" , prettyL(abs(attr(x, "allowance"))), sep = " "), |
|
paste("\nAllowance:", prettyL(if (adj) 0 else attr(x, "allowance")), sep = spacer), |
|
if (adj) "\nAdjusted Taxable:" else "\nTaxable: ", prettyL(attr(x, "taxable")), "\n\n") |
Taxable -> Taxable Income
Allowance -> Personal Allowance
Fiscal/R/incometax.R
Lines 36 to 41 in 072047a
Taxable -> Taxable Income
Allowance -> Personal Allowance