# NOT RUN {
projectPath <- file.path(tempdir(), "test")
prInit(projectPath)
mydata <- data.frame(x = 1:10, y = rnorm(10))
prWriteTable(mydata)
list.files(projectPath, recursive = TRUE, include.dirs = TRUE)
# Write in a subdirectory of "output"
prWriteTable("mydir/mydata")
list.files(projectPath, recursive = TRUE, include.dirs = TRUE)
# }
Run the code above in your browser using DataLab