Gist of a little function for tidying the results of inla

tidy-inla.R

# broom tidy method for class "inla"

tidy.inla <- function(x){
  
  # x = model_inla
  term_names <- rownames(x$summary.fixed)

  tibble::as_tibble(x$summary.fixed) %>%
    dplyr::mutate(terms = term_names) %>%
    dplyr::select(terms,
           dplyr::everything())
    
}