integrating step function in R--alternative to builtin routine

Question

R\'s builtin integrate function has difficulty with a standard step function:

> f <- function(x)(x>0)*(x<1)
 + integrate(f,-9,9)
 +