R/itunes_readr.R

In neugelb/neugelbtools: Various small Neugelb tools

#' itunes_readr
#'
#' A way to read in and tidy up data exported from iTunes Connect
#' @param file The file you want to read
#' @param rows How many rows you want to skip 
#' @export

itunes_readr <- function(file,rows=3) {

  require(tidyverse)
  require(lubridate)

  df <- read_csv(file,skip=rows) %>%
    select(-Measure) %>%
    gather() %>%
    rename(date = 1,
      downloads = 2) %>%
    mutate(date = mdy(date))

  return(df)

}