Use rmarkdown::draft

[hadley]

use_vignette <- function(name, pkg = ".") {
  pkg <- as.package(pkg)

  add_desc_package(pkg, "Suggests", "knitr")
  add_desc_package(pkg, "VignetteBuilder", "knitr")
  dir.create(file.path(pkg$path, "vignettes"), showWarnings = FALSE)

  path <- file.path(pkg$path, "vignettes", paste0(name, ".Rmd"))
  rmarkdown::draft(path, "html_vignette", "rmarkdown", 
    create_dir = FALSE, edit = FALSE)

  message("Draft vignette created in ", path)
}

Needs an Rmarkdown dependency, so will delay devtools release.