Create fun.R and move shorten
Add twitteR library and keys.R
Add tweeting and comparison to old tweets.

Also wrap in if statement so only proceed with tweeting if there are records.