Retrieve Hot Topics (Trends) for a Given Country from ‘Google’ Trends
Retrieve Hot Topics (Trends) for a Given Country from ‘Google’ Trends
The following functions are implemented:
get_topics
: Retrieve Hot Topics (Trends) for a Given Countrytopic_countries
: Return a character vector of supported countries
devtools::install_git("https://gitlab.com/hrbrmstr/hottopic.git")
# or
devtools::install_github("hrbrmstr/hottopic")
library(hottopic)
library(tibble) # for printing
# current version
packageVersion("hottopic")
## [1] '0.1.0'
topic_countries()
## [1] "Argentina" "Australia" "Austria" "Belgium" "Brazil" "Canada"
## [7] "Chile" "Colombia" "Czechia" "Denmark" "Egypt" "Finland"
## [13] "France" "Germany" "Greece" "Hong Kong" "Hungary" "India"
## [19] "Indonesia" "Ireland" "Israel" "Italy" "Japan" "Kenya"
## [25] "Malaysia" "Mexico" "Netherlands" "New Zealand" "Nigeria" "Norway"
## [31] "Philippines" "Poland" "Portugal" "Romania" "Russia" "Saudi Arabia"
## [37] "Singapore" "South Africa" "South Korea" "Spain" "Sweden" "Switzerland"
## [43] "Taiwan" "Thailand" "Turkey" "Ukraine" "United Kingdom" "United States"
## [49] "Vietnam"
get_topics()
## # A tibble: 40 x 11
## title description traffic link pub_date picture picture_source news_item_title news_item_snipp… news_item_url
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Juss… Empire 500,00… http… Tue, 29… https:… USA TODAY 'Empire' star … "\"Empire\" sta… https://www.…
## 2 Juss… Empire 500,00… http… Tue, 29… https:… USA TODAY 'Empire' star … "\"Empire\" act… https://www.…
## 3 Face… FaceTime, … 200,00… http… Tue, 29… https:… USA TODAY A 14-year-old … Apple's Group F… https://www.…
## 4 Face… FaceTime, … 200,00… http… Tue, 29… https:… USA TODAY Apple Takes Dr… But a bug affli… https://www.…
## 5 Bryc… "" 100,00… http… Tue, 29… https:… For The Win Fans think an … The Major Leagu… https://ftw.…
## 6 Bryc… "" 100,00… http… Tue, 29… https:… For The Win Report: Bryce … The Bryce Harpe… https://247s…
## 7 Jame… "" 100,00… http… Tue, 29… https:… The Root Grammy-Winning… The music indus… https://theg…
## 8 Jame… "" 100,00… http… Tue, 29… https:… The Root R&B Star James… James Ingram, o… https://vari…
## 9 Tory… Don Q 50,000+ http… Tue, 29… https:… Complex "Don Q Goes in… "Late Monday, Q… https://www.…
## 10 Tory… Don Q 50,000+ http… Tue, 29… https:… Complex JID Accepts To… "After unleashi… https://www.…
## # … with 30 more rows, and 1 more variable: news_item_source <chr>
do.call(
rbind.data.frame,
lapply(
c("United States", "France", "Germany"),
get_topics
)
)
## # A tibble: 118 x 11
## title description traffic link pub_date picture picture_source news_item_title news_item_snipp… news_item_url
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Juss… Empire 500,00… http… Tue, 29… https:… USA TODAY 'Empire' star … "\"Empire\" sta… https://www.…
## 2 Juss… Empire 500,00… http… Tue, 29… https:… USA TODAY 'Empire' star … "\"Empire\" act… https://www.…
## 3 Face… FaceTime, … 200,00… http… Tue, 29… https:… USA TODAY A 14-year-old … Apple's Group F… https://www.…
## 4 Face… FaceTime, … 200,00… http… Tue, 29… https:… USA TODAY Apple Takes Dr… But a bug affli… https://www.…
## 5 Bryc… "" 100,00… http… Tue, 29… https:… For The Win Fans think an … The Major Leagu… https://ftw.…
## 6 Bryc… "" 100,00… http… Tue, 29… https:… For The Win Report: Bryce … The Bryce Harpe… https://247s…
## 7 Jame… "" 100,00… http… Tue, 29… https:… The Root Grammy-Winning… The music indus… https://theg…
## 8 Jame… "" 100,00… http… Tue, 29… https:… The Root R&B Star James… James Ingram, o… https://vari…
## 9 Tory… Don Q 50,000+ http… Tue, 29… https:… Complex "Don Q Goes in… "Late Monday, Q… https://www.…
## 10 Tory… Don Q 50,000+ http… Tue, 29… https:… Complex JID Accepts To… "After unleashi… https://www.…
## # … with 108 more rows, and 1 more variable: news_item_source <chr>
Lang | # Files | (%) | LoC | (%) | Blank lines | (%) | # Lines | (%) |
---|---|---|---|---|---|---|---|---|
R | 8 | 0.89 | 134 | 0.89 | 29 | 0.57 | 38 | 0.49 |
Rmd | 1 | 0.11 | 17 | 0.11 | 22 | 0.43 | 39 | 0.51 |
Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.