- ### modified Claudio Agostinelli <claudio@unive.it> dated 2009-09-14\r
- ### add decimal.mark=options()$OutDec\r
- cols[j,i+pos] <-\r
- formatC( xcol[j],\r
- format = ifelse( attr( x, "digits",exact=TRUE )[j,i+1] < 0, "E", attr( x, "display",exact=TRUE )[i+1] ), digits = abs( attr( x, "digits",exact=TRUE )[j,i+1] ), decimal.mark=options()$OutDec)\r
+ curFormatArgs <- c(list( \r
+ x = xcol[j],\r
+ format = ifelse( attr( x, "digits",exact=TRUE )[j,i+1] < 0, "E", \r
+ attr( x, "display",exact=TRUE )[i+1] ), \r
+ digits = abs( attr( x, "digits",exact=TRUE )[j,i+1] )),\r
+ format.args)\r
+ cols[j,i+pos] <- do.call("formatC", curFormatArgs) \r