Commit 2e6c55cd authored by Languillaume, Antoine's avatar Languillaume, Antoine
Browse files

Simplify input request

readline() was behaving differently between local and url source.
In url case calling readline did not pause script execution. User directly ended up
in input validation while loop.
parent a16449d6
......@@ -10,12 +10,10 @@ if(length(current_files) != 0){
" \n",
"Are you sure you want to continue ?"))
answer <- readline("(Yes/No) \n")
valid_answer <- answer %in% c("Yes", "No")
valid_answer <- FALSE
while(valid_answer == FALSE) {
message("Answer can only be Yes or No:")
message("Yes/No:")
answer <- readline()
valid_answer <- answer %in% c("Yes", "No")
}
......
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