|
| 1 | +library(rvest) |
| 2 | +library(httr) |
| 3 | +library(stringr) |
| 4 | + |
| 5 | +#get review from game_id |
| 6 | +home_url <- "https://steamcommunity.com/" |
| 7 | +game_id <- 675010 |
| 8 | +review_page <- 3 |
| 9 | +review_offset <- 10 |
| 10 | +target_url <- modify_url(home_url,path = str_c("app/",game_id,"/homecontent"), |
| 11 | + query = list( |
| 12 | + userreviewsoffset= review_offset, |
| 13 | + p = review_page, |
| 14 | + workshopitemspage= review_page, |
| 15 | + readytouseitemspage= review_page, |
| 16 | + mtxitemspage= review_page, |
| 17 | + itemspage= review_page, |
| 18 | + screenshotspage= review_page, |
| 19 | + videospage= review_page, |
| 20 | + artpage= review_page, |
| 21 | + allguidepage= review_page, |
| 22 | + webguidepage= review_page, |
| 23 | + integratedguidepage= review_page, |
| 24 | + discussionspage= review_page, |
| 25 | + numperpage= review_offset, |
| 26 | + browsefilter= "mostrecent", |
| 27 | + appid= game_id, |
| 28 | + appHubSubSection= review_offset, |
| 29 | + appHubSubSection= review_offset, |
| 30 | + l= "english", |
| 31 | + filterLanguage= "default", |
| 32 | + searchText="", |
| 33 | + forceanon= 1 |
| 34 | + )) |
| 35 | +r <- GET(target_url, |
| 36 | + user_agent("Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36")) |
| 37 | + |
| 38 | +content(r) %>% |
| 39 | + html_nodes(".apphub_CardTextContent") %>% |
| 40 | + html_text() %>% |
| 41 | + str_trim() %>% |
| 42 | + str_extract("([^\\t]*)$") |
| 43 | + |
0 commit comments