if(rmarkdown::pandoc_available()){
myfile <- tempfile()
file <- system.file("extdata", "tests", "extra.Rmd",
package = "DataPackageR")
raw_data <- system.file("extdata", "tests", "raw_data",
package = "DataPackageR")
datapackage_skeleton(
name = "datatest",
path = tempdir(),
code_files = file,
force = TRUE,
r_object_names = "data")
use_raw_dataset(raw_data)
}
Run the code above in your browser using DataLab