TESTING.R

In andrewgeisler/emmaR: Connect to emma email marketing platform.

require(httr)
require(jsonlite)
#require(plyr)
#require(dplyr)

require(devtools)
install_github('andrewgeisler/emmaR')
require(emmaR)

accountID <- 31360
usr <- Sys.getenv('EMMA_UN')
pw <- Sys.getenv('EMMA_PW')
endPoint <- 'mailings'
parms <- list(mailing_types='m', mailing_statuses='p,a,s,x,c,f')
ids <- NA
ids <- c(11930240, 11931264, 13524608)
type <- NA

mailings <- emmaRequest(accountID, usr, pw, parms, endPoint='mailings')


ids <- mailings$mailing_id

mailingsids <- emmaRequest(accountID, usr, pw, endPoint='mailings', parms=NA, ids=ids)
#mailingMembers <- emmaRequest(accountID, usr, pw, endPoint='mailings', parms=NA, ids=ids, type='members')
#mailingGroups <- emmaRequest(accountID, usr, pw, endPoint='mailings', parms=NA, ids=ids, type='groups')
#mailingSearches <- emmaRequest(accountID, usr, pw, endPoint='mailings', parms=NA, ids=ids, type='searches')
#mailingHeadsUp <- emmaRequest(accountID, usr, pw, endPoint='mailings', parms=NA, ids=ids, type='headsup')

#response <- emmaRequest(accountID, usr, pw, endPoint='response', parms=NA)
responseIds <- emmaRequest(accountID, usr, pw, endPoint='response', parms=NA, ids=ids)
responseOpens <- emmaRequest(accountID, usr, pw, endPoint='response', parms=NA, ids=ids, type='opens')
#responseSends <- emmaRequest(accountID, usr, pw, endPoint='response', parms=NA, ids=ids, type='sends')
responseClicks <- emmaRequest(accountID, usr, pw, endPoint='response', parms=NA, ids=ids, type='clicks')