In stephaniereinders/RPlaystoreScraping:

library(rvest)
library(tidyverse)

# url of search results on Google Play Store
url <- "https://play.google.com/store/search?q=steganography&c=apps"
html <- read_html(url)

# get links of all apps listed on url
links <- html %>% 
  rvest::html_nodes('body') %>% 
  xml2::xml_find_all("//a[contains(@class, 'poRVub')]") %>% 
  html_attr("href")

# convert to list
links <- as.list(links)

# add "https://play.google.com" to begining of each link
links <- lapply(links, function (x) ( paste0("https://play.google.com", x)))

details <- lapply(links, function (x)(getData_SingleApp(x,tag_list)))

# Convert from list of lists to a data frame
map_df(details, function (x) as.data.frame(x, stringsAsFactors=FALSE))

stephaniereinders/RPlaystoreScraping documentation built on June 23, 2020, 11:04 a.m.