STAT 451, Day 7
Data Scraping Continued
Spotify
url <- "https://spotifycharts.com/regional/ca/daily/"
timevalues <- seq(as.Date("2018/08/01"), as.Date("2018/08/31"), by = "day")
head(timevalues)
[1] "2018-08-01" "2018-08-02" "2018-08-03" "2018-08-04" "2018-08-05"
[6] "2018-08-06"
Create list of URLs
unitedata<- function(x){
full_url <- paste0(url, x)
full_url
}
finalurl <- unitedata(timevalues)
head(finalurl)
[1] "https://spotifycharts.com/regional/ca/daily/2018-08-01"
[2] "https://spotifycharts.com/regional/ca/daily/2018-08-02"
[3] "https://spotifycharts.com/regional/ca/daily/2018-08-03"
[4] "https://spotifycharts.com/regional/ca/daily/2018-08-04"
[5] "https://spotifycharts.com/regional/ca/daily/2018-08-05"
[6] "https://spotifycharts.com/regional/ca/daily/2018-08-06"