library(gt)

gm_poland %>%
  gt()