library(kableExtra)

gm_poland %>%
  kbl() %>%
  kable_styling()