move draft function to rmarkdown package