Tidytext Extract Url R

sources <- tweets %>%
  group_by(source) %>%
  count() %>%
  arrange(-n)
MF