#' Retrieve Pardot Email
#'
#' Make a call to the Pardot API and return the data for the specified email.
#'
#' @param list_email_id The Pardot ID of the target email.
#' @param verbose Verbose output. See pardot_client().
#' @param ... Comma separated list of parameter name and parameter value pairs. Parameter names are not quoted.
#' Allowed parameter names are include_message.
#' @return A data frame. See http://developer.pardot.com/kb/object-field-references/#email.
#' @examples
#' \dontrun{
#' set_credentials("your-username", "your-password", "your-user-key")
#' df <- pardot_emaildata(email_id = 747447245)}
#' @export pardot_email
#' @import pryr
pardot_email <- function(list_email_id, verbose = 0, ...) {
# Evaluate parameters in the context of the parent environment,
# combine parameters to a querystring e.g. param1=value1¶m2=value2&...
dots <- lapply(pryr::named_dots(...), function(p) {
eval(p, parent.frame())
})
request_pars <- paste(paste(names(dots), unlist(dots), sep = "="), collapse = "&")
pardot_client("email", "read", identifier_field = "id", identifier = list_email_id, request_pars = request_pars, verbose = verbose)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.