R/nb_col_extract.R

In EricLarG4/g4dbr: G4 biophysics database visualization and management

gg_facet_ncol_ng <- function(p){
  assertive.types::assert_is_any_of(p, 'ggplot')
  p %>%
    ggplot2::ggplot_build() %>%
    magrittr::extract2('layout') %>%
    magrittr::extract2('layout') %>%
    magrittr::extract2('COL') %>%
    unique() %>%
    length()
}