rloopspause

R language, pause loop and ask user for continue


i have an idea to pause loop at some iteration and ask "user" for some answer.

for example

some_value = 0
some_criteria = 50
for(i in 1:100)
{
  some_value = some_value + i
  if(some_value > some_criteria)
  {
    #Here i need to inform the user that some_value reached some_criteria
    #I also need to ask the user whether s/he wants to continue operations until the loop ends
    #or even set new criteria
  }
}

Again, I want to pause loop, and ask user if he would like to continue like: "Press Y/N"


Solution

  • some_value = 0
    some_criteria = 50
    continue = FALSE
    for(i in 1:100){
      some_value = some_value + i
      print(some_value)
      if(some_value > some_criteria && continue == FALSE){
        #Here i need to infrom user, that some_value reached some_criteria
        print(paste('some_value reached', some_criteria))
    
        #I also need to ask user whether he wants co countinue operations until loop ends
        #or even set new criteria
    
        question1 <- readline("Would you like to proceed untill the loop ends? (Y/N)")
        if(regexpr(question1, 'y', ignore.case = TRUE) == 1){
          continue = TRUE
          next
        } else if (regexpr(question1, 'n', ignore.case = TRUE) == 1){
          question2 <- readline("Would you like to set another criteria? (Y/N)")
          if(regexpr(question2, 'y', ignore.case = TRUE) == 1){
            some_criteria <-  readline("Enter the new criteria:")
            continue = FALSE
          } else {
            break  
          }
        }
      }
    }