Hi all,
I've been using the wdTable() function from R2wd package and it's been
working great.
However I just tried to do the following:
> table.2
Waste Rebate code Chargeable (fin_map) Quantity (qty)
Total
[1,] "Waste" "Rebate code" "CHG"
"121"
"$22,534.01"
[2,] "Waste" "Rebate code" "NOCHG"
"229"
"$51,346.14"
[3,] "Waste" "No code" "CHG"
"2"
"$1,260.01"
[4,] "Waste" "No code" "NOCHG"
"26"
"$10,969.1"
[5,] "Total Waste" "" ""
"378"
"$86,109.26"
[6,] "No Waste" "Rebate code" "CHG"
"5,330"
"$3,427,721"
[7,] "No Waste" "Rebate code" "NOCHG"
"15,781"
"$6,949,667"
[8,] "No Waste" "No code" "CHG"
"197"
"$143,407.2"
[9,] "No Waste" "No code" "NOCHG"
"1,205"
"$1,172,939"
[10,] "Total No Waste" "" ""
"22513"
"$11,693,735"
[11,] "Grand Total" "" ""
"22891"
"$11,779,844"
Per cent Total $
[1,] "0.2%"
[2,] "0.4%"
[3,] "0%"
[4,] "0.1%"
[5,] "0.7%"
[6,] "29.1%"
[7,] "58.9%"
[8,] "1.2%"
[9,] "9.9%"
[10,] "99.2%"
[11,] "99.9%"
> format(table.2)
Waste Rebate code Chargeable (fin_map) Quantity
(qty)
[1,] "Waste " "Rebate code " "CHG
" "121
"
[2,] "Waste " "Rebate code " "NOCHG
" "229
"
[3,] "Waste " "No code " "CHG
" "2
"
[4,] "Waste " "No code " "NOCHG
" "26
"
[5,] "Total Waste " " " "
" "378
"
[6,] "No Waste " "Rebate code " "CHG
" "5,330
"
[7,] "No Waste " "Rebate code " "NOCHG
" "15,781
"
[8,] "No Waste " "No code " "CHG
" "197
"
[9,] "No Waste " "No code " "NOCHG
" "1,205
"
[10,] "Total No Waste" " " "
" "22513
"
[11,] "Grand Total " " " "
" "22891
"
Total Per cent Total $
[1,] "$22,534.01 " "0.2% "
[2,] "$51,346.14 " "0.4% "
[3,] "$1,260.01 " "0% "
[4,] "$10,969.1 " "0.1% "
[5,] "$86,109.26 " "0.7% "
[6,] "$3,427,721 " "29.1% "
[7,] "$6,949,667 " "58.9% "
[8,] "$143,407.2 " "1.2% "
[9,] "$1,172,939 " "9.9% "
[10,] "$11,693,735 " "99.2% "
[11,] "$11,779,844 " "99.9% "
> wdTable(format(table.2), caption = "Wastage by chargeable status and
rebate code")
Error in out[1 + (1:nr), 1] <- row.names(data) :
number of items to replace is not a multiple of replacement length
I'm not sure what caused the error message (table.2 can be exported as a
CSV file fine), and am wondering if anyone has experience similar
problem using wdTable()?
Kind regards
Kevin Wang
Manager, Government Advisory Services
Advisory
KPMG
10 Shelley Street
Sydney NSW 2000 Australia
Tel
+61 2 9335 8282
Fax
+61 2 9335 7001
Mob
0419 374 580
kevinwang@kpmg.com.au <mailto:kevinwang@kpmg.com.au>
kpmg.com.au <http://kpmg.com.au>
Protect the environment: please think before you print
[[alternative HTML version deleted]]
