library(rDrop)
source("getCred.R")
if(!is.null(drop <- getCred())) {
dummy = DropboxFolder("Dummy", drop)
e = dropbox_create_folder(dummy, "Extra")
e = dropbox_delete(dummy, "Extra")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.