ascii fails on dataframes created by aggregate

[EmmanuelCharpentier]

The following test code :

CreateDataset <- function(Taille=30, Ncat=3) {
  Cats <- factor(letters[1:Ncat])
  Probs <- runif(Ncat,0,1)
  Probs <- Probs/sum(Probs)
  Cat <- sample(Cats, size=Taille, replace=TRUE, prob=Probs)
  Moys <- 1:Ncat
  Val <- rnorm(Taille, Moys[as.integer(Cats)], 1)
  Res <- data.frame(Cat=Cat, Val=Val)
  return(Res)
}
DS2 <- CreateDataset()
foo <- aggregate(Val ~ Cat, data=DS2,
                 FUN=function(x)
                   c(N=length(x), Nmiss=sum(is.na(x)),
                     Moy=mean(x, na.rm=TRUE),
                     SD=sd(x, na.rm=TRUE)))
ascii(foo, asciiType="org", format="nice", digits=3)

fails with the message :

> ascii(foo, asciiType="org", format="nice", digits=3)
Error in 1:ncol(xx) : l'argument est de longueur nulle

I intend to explore this annoying bug...