new_challenge(path = ".", out_rmdfile = "challenge.rmd", recursive = FALSE, overwrite = recursive, quiet = FALSE, showWarnings = FALSE, template = c("en", "fr"), data_dir = "data", submissions_dir = "submissions", hist_dir = "history", install_data = TRUE, baseline = "baseline", add_baseline = install_data, clear_history = overwrite, title = "Challenge", author = "", date = "", email = "EDIT_EMAIL@DOMAIN.com", date_start = format(Sys.Date(), "%d %b %Y"), deadline = paste(Sys.Date() + 90, "23:59:59"), data_list = data_split(get_data("german")))
dir.create
.file.copy
.dir.create
."en"
(english) and "fr"
(french).store_new_submissions
.store_new_submissions
.train
, test
, y_test
and
ind_quiz
such as returned by the data_split
function.path <- tempdir()
wd <- setwd(path)
# english version
new_challenge()
# french version
new_challenge(template = "fr")
setwd(wd)
unlink(path)
Run the code above in your browser using DataLab