R/lotame_campaign_daily.R

In jackpalmer/LotameR: R Wrapper for the Lotame API

#'@title Lotame Audiences
#'@description
#'This function returns a data frame of audiences for the requested client.
#'  
#'@export 
lotame_campaign_daily <- function(campaign_id,
                                  lookback_days = 30){
  options(scipen=999)
  path <- paste0("https://api.lotame.com/2/statistics/campaigns/",
                 campaign_id,
                 "/daily?lookback_days=",
                 lookback_days)
  service_ticket <- lotame_service_ticket(path)
  req <- jsonlite::fromJSON(paste0(path,"&ticket=",service_ticket))
  return(req)
}