R fonksiyonu; Girdi verilmediyse,

Question

için sor. R'de bir fonksiyon yazmayı deniyorum. Her iki giriş de ayarlanmadıysa, girişleri sorar ve ardından işlevi sürdürür.

Input < - function(j,k){ 
    if ((j==j)&&(k==k)){ 
     j <- readline(prompt="Enter Input 1: ") 
     k <- readline(prompt="Enter Input 2: ") 
     Input(j,k) 
    }else if ((j=="<string here>")&&(k=="<string here>")){ 
     .... 
    } 
} 

Answer 1

Ben isteğe bağlı argümanları kullanarak ve kuşkusuz sizin yayınlanan soru çok muğlak olsa da, devam etmeden önce boş olmayan olup olmadığını görmek için test bu olurdu yaklaşımınızı yapılandırmaya iyi bir yol düşünüyorum:

Input < - function(j=NA, k=NA) { 
    if (is.na(j) | is.na(k)){ 
    j <- readline(prompt="Enter Input 1: ") 
    k <- readline(prompt="Enter Input 2: ") 
    Input(j, k) 
    } else if ((j == "<string here>") & (k == "<string here>")) { 
    .... 
    } 
} 

Answer 2

Ben şahsen tercih etse is.NA veya is.NULL (@Forrest 'ın cevabı olduğu gibi), bu

Input <- function(j, k) { 
    if (missing(j) | missing(k)){ 
    j <- readline(prompt="Enter Input 1: ") 
    k <- readline(prompt="Enter Input 2: ") 
    Input(j, k) 
    } else if ((j == "<string here>") & (k == "<string here>")) { 
    .... 
    } 
} 

R.

ile şimdi başlıyor birisi için daha basit görünebilir missing ile bir alternatiftir

Answer 3

Belki de argüman olarak readline kodunu koymak için en basit olduğunu düşünüyorum. force komutları, bu kodun işlevdeki o noktasında değerlendirilmesini zorlar. Gerekli olduklarını düşünmüyorum ama başka ne işleve bağlı olarak, daha sonra yerine j ve k sorduğundan emin olmak isteyebilirsiniz; aksi halde, ilk olarak ne j ve k'un ne olduğunu bilmesi gerektiğinde kod değerlendirilecektir.

Input <- function(j = readline(prompt="Enter Input 1: "), 
        k = readline(prompt="Enter Input 2: ")) { 
    force(j) 
    force(k) 
    if ((j=="<string here>") && (k=="<string here>")) { 
     .... 
    } 
}