Belirli bir alt dizgi bulunduğunda değişkeni değiştirin (for döngüsü için)

Question

x içeriyorsa, "değişkeni" 1 olarak değiştirmek istiyorum. 4. Yazdığım bu kod işe yaramıyor çünkü değişken hala sıfırdır. For döngüsünün x cinsinden "4" değerine ulaşıp ulaşmadığını görmek için "print (i)"'u dahil etmeye çalıştım, ancak sadece "1" basılmış. Bu nedenle, for-loop, bir seferden daha fazlasını yapmayacak gibi görünüyor .... Birisi bu kodun nesi yanlış olduğunu söyleyebilir mi?

x=22356478998 
    variable=0 
    for(i in 1:length(x)){ 
    if(substr(x,start=i,stop=i)=="4"){ 
     variable=1 
     break 
    } 
    } 

Answer 1

Sadece (o base öyle)

variable = as.integer(grepl("4", x)) 

Answer 2

Sen stringr paketinden str_detect() kullanabilirsiniz:

library(stringr) 
x=22356478998 
variable <- ifelse(str_detect(x, "4"), 1, 0)