
# The titles, locations and experience levels to scrape data for
job_titles <- c(
  'data scientist',
  'data analyst',
  'data engineer'
)
# A list with the search query and abbreviation
locations <- list(
  c('New York City Metropolitan Area', 'NYC'),
  c('Greater Toronto Area Metropolitan Area', 'TO'),
  c('San Francisco Bay Area', 'SF'),
  c('Greater Seattle Area', 'SEA'),
  c('Greater Boston', 'BOS')
)
# Experience levels
# 1 = Entry
# 2 = Associate
# 3 = Mid-senior
experience_levels <- c(1, 2, 3)
