Untitled

install.packages("stringr")
library('stringr')
install.packages('dplyr')
library('dplyr')
install.packages('jpeg')
library('jpeg')

# Global
city_names=c('London', 'LDN', 'New York', 'NY', 'Hong Kong', 'HK', 'Beijing', 'BJ', 
         'Singapore', 'SG','Shanghai', 'SH', 'Sydney', 'SYD', 'Paris', 
         'Love city', 'Dubai', 'UAE','Tokyo', 'NRT')
# merging the London and LDN which are same city
cities = c('London' = c('London', 'LDN'),
                  'New York' = c('New York', 'NY'),
                  'Hong Kong' = c('Hong Kong', 'HK'),
                  'Beijing' = c('Beijing', 'BJ'),
                  'Singapore' = c('Singapore', 'SG'),
                  'Shanghai' = c('Shanghai', 'SH'),
                  'Sydney' = c('Sydney', 'SYD'),
                  'Paris' = c('Paris', 'Love city'),
                  'Dubai' = c('Dubai', 'UAE'),
                  'Tokyo' = c('Tokyo', 'NRT'))
#activities=c('sightseeing', 'shopping', 'dining', 'outdoor_activities',
#             'museum', 'entertainment', 'relaxation', 'nature', 'cultural', 'photography')

activities=list('shopping'=c('local markets', 'malls', 'souvenirs', 'local products', 'shopping'),
'dining'=c('cuisines', 'dining', 'restaurants'),
'outdoor_activities'=c('hiking', 'biking', 'water sports'),
'museum'=c('museum', 'art gallery', 'exhibition'),
'entertainment'=c('concert', 'show','festival'),
'relaxation'=c('beach', 'spa', 'resort'),
'nature'=c('park', 'wildlife', 'natural'),
'culture'=c('cultural event', 'cultural workshop'),
'photography'=c('landscape', 'architecture', 'local scenes'))
# 0.
df=read.csv("travel_filtered.csv", header=TRUE)
content=df$Content
print(content[5])

# 1. 
fun_city=function(cities) {
  for (i in cities) {
    tweets(cities[i])
  }
  print(fun_city)
}