r - 不要な文字を印刷するASCIIパッケージ

Question

次の例を実行する

require(ascii)
mat <- matrix(c(1,11,2,12),nrow=2)
rownames(mat)<-letters[1:2]
colnames(mat)<-letters[11:12]
tab<- as.table(mat)
ascitab <- ascii(tab,digits=0,align="r")
print(ascitab,type="t2t")

次の出力が生成されます。

||     |    k |    l 
|   a |    1 |    2 
|   b |   11 |   12 
Warning messages:
1: In rep(rownames, length = nrow(x)) :
  'x' is NULL so the result will be NULL
2: In rep(colnames, length = ncol(x)) :
  'x' is NULL so the result will be NULL

2 つの問題があります。

最初の二重の縦棒は正しくありません。これは 1 本の棒である必要があります。そして、警告は非常に奇妙です。この表は合理的な形式です。

printステートメントを次のように変更します

print(ascitab,type="t2t",include.rownames=TRUE,include.colnames=TRUE)

問題を解決しません。誰でも助けることができますか？

出力のキャプチャと後処理を含む不器用なソリューションを知っていますが、クリーンなソリューションを見たいと思っています。