Error in summary.corpus(x, n = 101) when ndoc(x) > 100

[kbenoit]

longcorp <- corpus(
    rep(LETTERS, 4), 
    docvars = data.frame(label = rep(paste("document", 1:26), 4))
)
ndoc(longcorp)
# [1] 104

summary(longcorp, n = 101)
# Error in data.frame(..., check.names = FALSE) : 
#     arguments imply differing number of rows: 100, 101