Tam sayı türünde olmayan bir değeri sayıya dönüştürmeye çalışırsak R dilinde NA türünde NaN bir değer üretilir. Aşağıdaki regular expression ile sadece rakamları kabul eden bir fonksiyon yazarak sayı girişi olarak sınırlandırabiliriz.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | tamSayiOku <- function() { n <- readline(prompt="Bir Tam Sayı Girin: ") if(!grepl("^[0-9]+$",n)) { return(tamSayiOku()) } return(as.integer(n)) } print(tamSayiOku()) |
Çıktı:
Yorum Yap