Я должен получить простые числа по г, но у меня ошибка

Question

Я решаю эту проблему для этого пути. но ошибки продолжают возникать. Я хочу решить эту ошибку. Я хочу, чтобы способ не менять большую часть структуры, которую я использовал.

is_Prime_Number <- function(a)
x <- 1:100
if(x<=1){
 next
} else if(x==2){
 print(a)
} else if (x%%2==0){
 next
} else{
 y <-3
 is_prime <-1
 while(y <- as.integer(sqrt(x))){
  if(x%%y==0){
   is_prime <-0
   break
  }y<-y+2
 }if(is_prime ==1){
   print(a)
  }else{
   next
   }
}
result <- is_Prime_Number(a)
print(result)