Erro em get (como caractere (FUN), mode = "function", envir = envir)

Eu sou novo no R, então me perdoe se a pergunta for um pouco boba. Eu estou tentando escrever um loop while simples para uma iteração de função de valor. Minha função (optim.routine) usa o solver ipoptr. Aqui está o meu código: d<-1 old1<-0 ...