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.

download_project.R

@@ -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")
   }