R/utils.R

In JohnCoene/oRion: Integrate R & Cheetah Mobile Orion

#' @importFrom methods is
# construct credentials
constructCred <- function(json, pars) {
  credentials <- list(client.id = pars$client.id,
                      client.secret = pars$client.secret,
                      token = json$data$access_token,
                      expires_in_sec = json$data$expires_in,
                      expires_in_date = Sys.time() + json$data$expires_in)
  # hide
  attr(credentials, "hidden") <- c("client.id", "client.secret")
  # class for print
  class(credentials) <- "orionToken"
  # store
  assign("credentials", credentials, envir = cred_env)
}

testReturn <- function(content) {
  # check if success
  if (content$status != 200 && content$status == 422){
    stop(paste(unlist(content$errors), collapse = "\n"), call. = FALSE)
  }  else if (content$status != 200 && content$status != 422) {
    msg <- paste0("API returned status ", content$status,
                  ": ", content$message)
    stop(msg, call. = FALSE)
  }
}

orionToken <- function() {
  credentials <- tryCatch(get("credentials", envir = cred_env),
                          error = function(e) e)
  if (is(credentials, "error") && file.exists(".orionToken")){
    credentials <- get(load(".orionToken"))
    credentials$client.id <- rawToChar(credentials$client.id)
    credentials$client.secret <- rawToChar(credentials$client.secret)
    assign("credentials", credentials, envir = cred_env)
  } else if (is(credentials, "error")){
    stop("No credentials see ?orionOAuth", call. = FALSE)
  }
  if (credentials$expires_in_date <= Sys.time()) {
    credentials <- orionOAuth(credentials$client.id,
                              credentials$client.secret)
  }
  return(credentials)
}

checkObjects <- function(objects){
  valid <- c("campaign", "ad", "adset", "audience", "image")
  sapply(objects, function(x) {
    if (x %in% valid == FALSE){
      stop("invalid object", call. = FALSE)
    }
  })
  objects[objects %in% "audience"] <- "audience/targeting/template"
  return (objects)
}

parseJSON <- function(data){
  data <- as.data.frame(t(unlist(data)), stringsAsFactors = FALSE)
  return(data)
}


reportInput <- function(body){
  col <- c("impression", "click", "revenue", "conversion",
           "videoview", "cpc", "ctr", "cpm")
  groups <- c("datetime", "age", "gender", "location", "brand", "ad", "adset",
             "campaign", "videotype")
  sapply(body$column, function(x){
    if (!x %in% col) {
      stop(paste0("invalid column. valid values are ",
                  paste0(col, collapse = ", ")), call. = FALSE)
    }
  })
  sapply(body$group.by, function(x){
    if (!x %in% groups) {
      stop(paste0("invalid column. valid values are ",
                  paste0(groups, collapse = ", ")), call. = FALSE)
    }
  })
  if (length(body$groupby) == 1) {
    stop("must specify at least 2 arguments for group.by", call. = FALSE)
  }
  if (length(body$column) == 1) {
    stop("must specify at least 2 arguments for column", call. = FALSE)
  }
}

setthat <- function(x, valid){
  if (length(x) > 1){
    stop("setting must be of length 1", call. = FALSE)
  }
  if (!x %in% valid){
    stop("x must be one of ", paste0(valid, collapse = ", "), call. = FALSE)
  }else{
    x <- names(valid[valid %in% x])
  }
  return(x)
}