How to execute a statement only if a condition is met in R-exams

Question

I intend the code to run only if c is different from a square less than 36, otherwise try again ...

c<-sample((1:36),1)
if(c==1|c==4|c==9|c==16|c==25|c==36){

}else{
  
}

Answer 1

Maybe a simplier condition:

if (c %in% (1:5)^2) {...}

Answer 2

The following will work:

gotit <- FALSE

while (!gotit)
{
  c<-sample((1:36),1)
  if(c==1|c==4|c==9|c==16|c==25|c==36){
    gotit <- FALSE
  } else {
    gotit <- TRUE
    cat("Got it!\n")
  }
}