Fascinating, publish to rpubs from command

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