下面那个sinπx除以x的用r怎么表示

f<-function(x){
  if(x<=0){
    sin(log((x^2-1)^2))
  }else{
    sin(pi*x)/(x*(x^2+2*x-3))
  }
}

f(-1)
f(0)
f(1)