Commit bbc164ea authored by Languillaume, Antoine's avatar Languillaume, Antoine
Browse files

Prompt if in while loop

parent 0fe91b86
......@@ -13,9 +13,13 @@ if(length(current_files) != 0){
valid_answer <- FALSE
while(valid_answer == FALSE) {
answer <- readline()
message("Yes/No:")
valid_answer <- answer %in% c("Yes", "No")
if(!valid_answer) {
message("Yes/No:")
}
}
if(answer == "No"){
......@@ -41,7 +45,6 @@ file.copy(from = list_files,
to = "./",
recursive = TRUE)
unlink(file.path(current_wd, "./PPS_data_management-refactor/"),
recursive = TRUE)
unlink(c("project.zip", "download_project.R", "README.md"))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment