Nothing
#' BuildHeader
#'
#' Internal function - Build Header for REST API call. This is deprecated, we should now be using OAUTH.
#'
#' @importFrom digest digest
#' @importFrom base64enc base64encode
#'
#' @return Header string for the old API auth method.
#'
#' @export
#' @keywords internal
BuildHeader <- function() {
#Create nonce
nonce <- as.character(as.numeric(Sys.time()))
#Create timestamp
created.date <- format(as.POSIXlt(Sys.time(), "GMT"), "%Y-%m-%dT%H:%M:%SZ")
#Concatentate nonce, timestamp, shared secret, then sha1 then base64
nonce.create.secret <- paste(nonce, created.date, AdobeAnalytics$SC.Credentials$secret, sep="")
sha.object <- digest(nonce.create.secret, algo="sha1", serialize=FALSE)
password.digest <- base64encode(charToRaw(sha.object))
#Build & Return X-WSSE Header
headers <- c('X-WSSE'=paste0('UsernameToken Username="',AdobeAnalytics$SC.Credentials$key,'", ',
'PasswordDigest="',password.digest,'", ',
'Nonce="',nonce,'", ',
'Created="',created.date,'"')
)
return(headers)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.