#'
#'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, newname){
instance_u <- paste0(instance_url,'/')
api <- '36.0'
myobject <- object
myquery <- paste0('Select Id, ', field1,', ',field2,' FROM ', myobject)
session <- c(sessionID = access_token,instanceURL = instance_u, apiVersion = api)
data1 <- rforcecom.bulkQuery(session, myquery, myobject)
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("Id", newname)
updater(access_token, instance_url, myobject, newdata)
return(head(newdata))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.