R/am_history_united_app.r

In muzerow/rappmagic: A Wrapper for AppMagic API

#' Get Data for United Application
#' @description Get Data for United Application <https://api.appmagic.rocks/v1/docs#operation/getUnitedApplicationHistory>
#' @importFrom httr add_headers content GET
#'
#' @param aggregation Period of data summarization
#' @param date_from Start date for data (minimum date is 2015-01-01)
#' @param date_to End date for data (minimum date is 2015-01-01)
#' @param store Store code
#' @param united_application_id United app ID
#' @param country Alpha-2 country code
#' @param signature Authentication token
#' @param accept Accept header value
#'
#' @export

am_history_united_app <- function(aggregation = NULL, date_from = NULL, date_to = NULL,
                                  store, united_application_id, country, signature, accept = "text/csv") {
  history_united_app <- GET("https://api.appmagic.rocks/v1/history/united-application",
    query = list(
      aggregation = aggregation,
      date_from = date_from,
      date_to = date_to,
      store = store,
      united_application_id = united_application_id,
      country = country
    ),
    add_headers(
      "Authorization" = signature,
      "Accept-Encoding" = "gzip",
      "Accept" = accept
    )
  )

  if (history_united_app$status_code != 200) {
    stop(paste0("Error code ", history_united_app$status_code, ": ", content(history_united_app)$message))
  }

  content(history_united_app)
}