R/itunes_reviews.R

In neugelb/neugelbtools: Various small Neugelb tools

#' itunes_reviews
#'
#' A wrapper for getting review data from the iTunes App Store using the itunesr package
#' @param app_id The id of your iOS app
#' @param country Which country you want data for
#' @export

itunes_reviews <- function(app_id,country) {

  require(itunesr)
  require(tidyverse)

  reviews <- tibble()

  for (i in 1:10) {
    delist <- getReviews(app_id,country,i)
    reviews <- bind_rows(reviews,delist)
  }

chr_cols <- c('title','app_version','review')

reviews <- reviews %>%
  tidycols() %>%
  mutate(rating = as.numeric(rating),
         rating_level = ifelse(rating > 3,'high',
                         ifelse(rating == 3, 'medium','low'))) %>%
  mutate_at(chr_cols,funs(as.character))

return(reviews)
}