result <- rpubsUpload(title="publish to rpubs", htmlFile='/tmp/ml.html', method=getOption('rpubs.upload.method', 'internal')) browse(result$continueUrl)