if(rmarkdown::pandoc_available()){
f <- tempdir()
f <- file.path(f,"foo.Rmd")
con <- file(f)
writeLines("```{r}\n vec = 1:10 \n```\n",con=con)
close(con)
pname <- basename(tempfile())
datapackage_skeleton(name = pname,
path=tempdir(),
force = TRUE,
r_object_names = "vec",
code_files = f)
package_build(file.path(tempdir(),pname), install = FALSE)
devtools::load_all(file.path(tempdir(),pname))
data_version(pname)
}
Run the code above in your browser using DataLab