Очистка таблицы Википедии R

Question

Я хочу очистить таблицу на странице википедии https://en.wikipedia.org/wiki/Atlanta

library(vest)
url <- "https://en.wikipedia.org/wiki/Atlanta"
atl <- url %>%
    read_html() %>%
    html_node(xpath = '//*[@id="mw-content-text"]/div/table[1]') %>%
    html_table(header = FALSE, fill = TRUE) %>%
  data.frame()

Я хочу создать новый фрейм данных со следующим выводом

 Population_Estimate    Mayor                        Area                            FIPS      ZIP     
  506,811              Keisha Lance Bottoms (D)     136.76 sq mi (354.22 km2)       13-04000 
 30060, 30301–30322, 30324–30334, 30336–30350, 30340, 30353, 30363