How to manually order the set size bar plot of UpsetR

Question

I have the following code:

library(UpSetR)

listInput <- list(one = c(1, 2, 3, 5, 7, 8, 11, 12, 13), 
                  two = c(1, 2, 4, 5, 10),