get_boundary <- function(content_type){
# Check for multipart header
if(!grepl("multipart/form-data;", content_type, fixed = TRUE))
stop("Content type is not multipart/form-data: ", content_type)
if(!grepl("boundary=", content_type, fixed = TRUE))
stop("Multipart content-type header without boundary: ", content_type)
# Extract bounary
m <- regexpr('boundary=[^; ]{2,}', content_type, ignore.case = TRUE)
boundary <- sub('boundary=','',regmatches(content_type, m)[[1]])
sub('^"(.*)"$', "\\1", boundary)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.