The advise functions are very fast. So I would suspect that something else in your code is slow, like still calling an R function despite your changes to the neural function.

For checking what it is, simply replace NEURAL with PERCEPTRON and train again - if you then see a speed increase in the test, it's something in your R code.