missingCredentialsError <-
function()
{
raiseError("Invalid or missing Dropbox credentials. ?dropbox_auth for more information.", c("MissingDropboxCredentials", "MissingOAuthCredentials"))
}
raiseError <-
function(msg, class, ...)
{
e <- structure(list(message = msg, ...),
class = c(class, "rDropError", "simpleError", "error", "condition"))
stop(e, call = NULL) # , call.= FALSE)
}
interruptedUpload <-
function(upload_id, offset)
{
raiseError("", "UploadInterrupted", upload_id = upload_id, offset = offset)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.