use knitr:::html_vignette
the code can be read from formatR::usage()