#' Generate a nonce
#'
#' Generates a random raw (unsigned char*) vector.
#'
#' @param length
#' The number of elements to return.
#'
#' @return
#' A random raw vector.
#'
#' @export
gen_nonce <- function(length=64)
{
check.is.posint(length)
.Call(R_gen_nonce, as.integer(length))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.