Waffle generates an error when more than 8 categories are supplied

[pumphandle]

Earlier this week I had a class of 30 students generate a waffle chart as part of a homework assignment using the waffle package. None reported any issues.

In making the answer key, I found that it is no longer working (also confirmed by a delinquent student), making me think this is a brand-new issue.

In the minimal example below, only the first works - there seems to be a cap of 8 categories, unless colors are specified as in the 4th case.

library(waffle)

parts <- c(1:8)
waffle(parts, rows=8)

parts <- c(1:9)
waffle(parts, rows=8)

parts <- c(1:10)
waffle(parts, rows=8)

parts <- c(1:10)
waffle(parts, rows=8, colors=c(1:10))