Find proper prompt behaviour when sourcing form url

download_project.R

@@ -8,13 +8,13 @@ if(length(current_files) != 0){
   
   message(paste0("Working directory is not empty. You might loose existing files.",
                  " \n",
-                 "Are you sure you want to continue ?"))
+                 "Are you sure you want to continue (Yes/No) ?"))
   
   valid_answer <- FALSE
   
   while(valid_answer == FALSE) {
-    message("Yes/No:")
     answer <- readline()
+    message("Yes/No:")
     valid_answer <- answer %in% c("Yes", "No")
   }