EMMA_TESTING/master.R

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

require(httr)
require(jsonlite)

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


### BASE URLS
url <- buildURL(accountID, endPoint, ids, type)

### ADD PARMS TO URL LIST
url <- addParms(url,parms)

### GENERATE PAGINATION START INDEXES FOR EACH URL
url <- getPages(url, usr, pw ) 

## BUILD FINAL REQUEST LIST
url <- finalRequestList(url)

### FETCH RESULTS
results <- parseResults(url, usr, pw, parms)
  
## THIS WORKS FOR RESULTS WITHOUT SUB LISTS
results <- do.call('rbind',results)