R/ranker.R

In keshav-valgen/prosper321: To test the trail code

#'Industry ranking
#'
#'This function ranks a categorical variable from a numeric variable

#' @import RForcecom
#' @import jsonlite
#' @import dplyr
#' @export ranks

ranks <- function(access_token, instance_url, object, depfield, indfield, newname){

  instance_u <- paste0(instance_url,'/')
  api <- '36.0'
  myquery <- paste0('Select Id, ', depfield,', ',indfield,' FROM ', object)
  session <- c(sessionID = access_token,instanceURL = instance_u, apiVersion = api)
  data1 <- rforcecom.bulkQuery(session, myquery, object)
  data1 <- na.omit(data1)
  data1 <- ranker(data1)
  data1 <- subset(data1, select = c("Id", "decile"))
  data1$decile[data1$decile == 5 | data1$decile == 6 | data1$decile == 7 | data1$decile == 8] <- 5
  data1$decile[data1$decile == 9 | data1$decile == 10 | data1$decile == 11] <- 6

  colnames(data1) <- c("Id", newname)

  updater(access_token, instance_url, object, data1)
  return(data1)

}