# NOT RUN {
the_test <- "worcs_template"
old_wd <- getwd()
dir.create(file.path(tempdir(), the_test))
do.call(git_user, worcs:::get_user())
worcs_project(file.path(tempdir(), the_test, "worcs_project"),
manuscript = "github_document",
preregistration = "None",
add_license = "None",
use_renv = FALSE,
remote_repo = "https")
setwd(old_wd)
unlink(file.path(tempdir(), the_test))
# }
Run the code above in your browser using DataLab