if (FALSE) {
# upload a document
result <- rpubsUpload("My document title", "Document.html")
if (!is.null(result$continueUrl))
browseURL(result$continueUrl)
else
stop(result$error)
# update the same document with a new title
updateResult <- rpubsUpload("My updated title", "Document.html",
id = result$id)
}
Run the code above in your browser using DataLab