我有一个想法在某些迭代中暂停循环并向“用户”询问一些答案。
例如
some_value = 0
some_criteria = 50
for(i in 1:100)
{
some_value = some_value + i
if(some_value > some_criteria)
{
#Here i need to inform the user that some_value reached some_criteria
#I also need to ask the user whether s/he wants to continue operations until the loop ends
#or even set new criteria
}
}
再次,我想暂停循环,并询问用户是否愿意继续,例如:“按 Y/N”
some_value = 0
some_criteria = 50
continue = FALSE
for(i in 1:100){
some_value = some_value + i
print(some_value)
if(some_value > some_criteria && continue == FALSE){
#Here i need to infrom user, that some_value reached some_criteria
print(paste('some_value reached', some_criteria))
#I also need to ask user whether he wants co countinue operations until loop ends
#or even set new criteria
question1 <- readline("Would you like to proceed untill the loop ends? (Y/N)")
if(regexpr(question1, 'y', ignore.case = TRUE) == 1){
continue = TRUE
next
} else if (regexpr(question1, 'n', ignore.case = TRUE) == 1){
question2 <- readline("Would you like to set another criteria? (Y/N)")
if(regexpr(question2, 'y', ignore.case = TRUE) == 1){
some_criteria <- readline("Enter the new criteria:")
continue = FALSE
} else {
break
}
}
}
}
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)