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