Solving numerically unstable integration in R

Question

I have a function which I would like to integrate for x between -Inf and Inf. I\'m using the function integrate in R. How