The following R code is intended to calculate the product of odd numbers in a numeric vector. However, it contains a minor logical error and doesn't produce the correct result. Identify the error and fix the code.calculate$\_$odd$\_$product $<-$ function$($numbers$)\{$odd$\_$numbers $<-$ numbers$[$numbers $\%\%2==1]$

product $<-$ prod$($odd $\_$numbers$)$return$($product$)$