R返回到前一個點的功能，如果某些語句不滿足

Question

我有這樣的示例代碼

sq <- function(){ 
    d <- readline("give number(0 to 10): ") 

    if (as.numeric(d) <= 5){ 
    dsquare <- as.numeric(d)^2 
    return(dsquare) 
    } else { 
    stop("OK") 
    } 

} 

我想要的，而不是停止的功能，要回點，用戶被提供d與readline()函數。有沒有辦法輕鬆做到這一點？

Answer 1

呼應托馬斯的評論，或許你可以做這樣的事情：

sq<-function(){ 
    d<-readline("give number(0 to 5): ") 

    if (as.numeric(d)<=5){ 
    dsquare<-(as.numeric(d)^2) 
    return(dsquare) 
    } 
    else{ 
    Message <- paste("Input should be less than or equal to 5.", 
        "Please enter a new value (0 to 5)", sep = "\n") 
    message(Message, appendLF=TRUE) 
    sq() 
    } 
} 

這裏有幾個數字的試用：

sq() 
# give number(0 to 5): 1.5 
# [1] 2.25 
sq() 
# give number(0 to 5): 6 
# Input should be less than or equal to 5. 
# Please enter a new value (0 to 5) 
# give number(0 to 5): 7 
# Input should be less than or equal to 5. 
# Please enter a new value (0 to 5) 
# give number(0 to 5): 6 
# Input should be less than or equal to 5. 
# Please enter a new value (0 to 5) 
# give number(0 to 5): 2 
# # [1] 4 

Answer 2

最後得到的答覆是由於你的答案也和這次真是萬分感謝。

首先我做一個函數調用d（），它是：

d<-function(){ 
    dd<-readline("give number(0 to 10): ") 

if (as.numeric(dd)<=5){ 
    dsquare<-(as.numeric(dd)^2) 
    return(dsquare) 
} else{ 
    d() 
} 

} 

然後我調用此函數的平方（）函數，它是這樣的3行：

sq<-function(){ 
    d() 
} 

當然

我想要應用的腳本並不那麼簡單，但我會弄明白的！ 一般來說，我明白你必須在許多小的函數中分開函數，並且在你想要的函數是你想要重新開始的地方時調用函數。

編輯：如果我想調用從d（）到sq（）的變量，我該怎麼做？ 我試圖把返回（ds​​quare）放在sq（）函數中，而不是d（），但是它給出了ERROR。