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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.