Найти максимальное количество пересечений в графике UpSetR

Question

У меня есть кадр данных кинофильмов от movies <- read.csv( system.file("extdata", "movies.csv", package = "UpSetR"), header=T, sep=";" )

, а затем я использую UpSetR для его построения:

library(UpSetR)
upset(data = movies,
      nintersects = NA, 
      order.by='freq',
      matrix.color = 'black',
      shade.alpha = 0.5,
      scale.intersections=ifelse(scaleOfYAxis,'log2','identity'))

Как вы можете видеть, я могу установить количество пересечений (числовертикальные черты) в NA, что дает мне максимальное количество доступных пересечений.Мой вопрос заключается в том, как я мог бы извлечь это число без необходимости подсчитывать количество баров после создания графика.