[R] How to catch value

[Chun-Ying Lee]

Dear R users:
I have a problem about catch the value from function.
I have following two functions (part):
fbolus1 <- function()
{.........
 par<-data.frame(Parameter=c("kel","Vd"),Initial=c(0))  
 check(par)
 .....}
check<-function(par)
{
 if (par[ ,2] <= 0){
 cat("\nEnter again (y/n) ?\n\n")
 ans<-readline()
   if (ans == "n" ){
     return(tidy.up()) 
  }
  else{
     cat("\n")
     par<-edit(par)
  }
 }
}  
 
I wonder if it is possible to catch the value ("par" in this example) which
"check" function generated and than go back to the "fbolus1" function,  and
keep executing the command next to "check(par)", and "fbolus1" function can 
accept the value "check" function generated. If it is possible, please give me
some comments. Thanks in advance !!