How to generate normally distributed random numbers in specific interval?

I want to generate 100 normally distributed random number in interval [-50,50]. However in the below code the range of random number generated is [-50,50].

n <- rnorm(100, -50,50)
plot(n)