require (markdown)
result <- rpubsUpload ("Emacs org-mode upload", "UploadFromOrgMode.html")
if (!is.null (result$continueUrl)) {
    browseURL (result$continueUrl)
}else {
    stop (result$error)
}