Upload Test

see: rpubsUpload - R Graphical Manual

upload a document

this is my first upload from function

require(markdown)
result <- rpubsUpload("rpubsUpload usage", "RpubsUploadSample.html")
if (!is.null(result$continueUrl)) {
    browseURL(result$continueUrl)
}else {
    stop(result$error)
}