R: Construindo Variáveis ​​Correlacionadas

Eu tenho uma variável com uma determinada distribuição (normale no meu exemplo abaixo).

set.seed(32)    
var1 = rnorm(100,mean=0,sd=1)

Eu quero criar uma variável (var2) que é correlacionada com var1 com um coeficiente de correlação linear (aproximadamente ou exatamente) é igual a "Corr". A inclinação da regressão entre var1 e var2 deve ser (rougamente ou exatamente) igual a 1.

Corr = 0.3

Como posso conseguir isso?

Eu queria fazer algo assim:

decorelation = rnorm(100,mean=0,sd=1-Corr)
var2 = var1 + decorelation

Mas claro quando correndo:

cor(var1,var2)

, o resultado não está perto de Corr!