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个问题：

一开始的双竖线是不正确的，应该只有一根。警告很奇怪。该表具有合理的格式。

将打印语句更改为

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

不能解决问题。有人可以帮忙吗？

我知道一个笨拙的解决方案，其中包括捕获和后处理输出，但我希望看到一个干净的解决方案。