Top n URLs shared

[Quiet27]

New function to create a chart of the top n URLs shared within the collection of tweets.

# Top n URLs shared
# Based on sharing within the collection of tweets

results <-
dbGetQuery(con,
           "SELECT tweet.id as `tweet_id`,
              tweet.text as `text`,
              url.url as `url`,
              url.expanded_url as `expanded_url`,
              url.display_url as `display_url`
            FROM url
            LEFT JOIN tweet ON url.source_id = tweet.id
            WHERE source_type = 'tweet'
              AND field = 'text';")
# Need to figure out why the same url appears several times within the same tweet_id

[Quiet27]

Will wait until the new tidy_tweet schema for URLs is implemented first before doing this