R/quad.R

In keshav-valgen/prospervue1: Analytics applications foruse in Salesforce

#'
#'This function takes two variables and converts them into a quad
#'@import RForcecom
#'@import dplyr
#'@export quad
#'



quad <- function(access_token, instance_url, object, field1, field2){

  instance_u <- paste0(instance_url,'/')
  api <- '36.0'
  myquery <- paste0('Select Id, ', field1,', ',field2,' FROM ', object)
  session <- c(sessionID = access_token,instanceURL = instance_u, apiVersion = api)
  data1 <- rforcecom.bulkQuery(session, myquery, object)
  data1 <- na.omit(data1)

  var1 <- data1[,2]
  var2 <- data1[,3]
  var1 <- data_clean(var1) # New variable is created
  var2 <- data_clean(var2)

  newdata <- data.frame(Id = data1$Id, var1, var2)
  summary <- newdata %>% group_by(var1, var2) %>%
    summarise(counts = n())
  summary$Rank <- rank(-summary$counts, ties.method = "random")
  newdata <- merge(newdata, summary, all = T)
  newdata <- subset(newdata, select = c('Id', 'Rank'))
  colnames(newdata) <- c("strId", "dist")
  return(newdata)
}