如何将闪亮UI的输入框中的值传递回R脚本中的变量并运行它？

Question

我在source.R中有以下代码，我计划从闪亮中运行。目前，脚本中存在硬编码值（例如10000,55,15,200等，以及低于这些值的一些矩阵相关元素）：

rnorm2 <- function(n,mean,sd) { mean+sd*scale(rnorm(n)) }
var1 <- rnorm2(n = 10000, mean = 55 , sd = 15)
var2 <- rnorm2(n = 10000, mean = 200 , sd = 30)
var3 <- rnorm2(n = 10000, mean = 90 , sd = 25)
var4 <- rnorm2(n = 10000, mean = 8 , sd = 3)

R = matrix(cbind(1,.80,.2, .4,  .80,1,.7, .6,  .2,.7,1,.65, .4, .6, .65, 1),nrow=4)

我开发了一个闪亮的界面，从UI的屏幕截图中显示的数字输入框中获取用户的输入：

现在，我想将从这些数字框输入的输入连接到我所拥有的source.R脚本中的变量，代替那些硬编码值（例如10000,55,15,200等等）以及这些值之下的矩阵相关元素。）

实际上这是我现在决定遵循的一种新方法。以前我在发布到我的问题的答案中采用了不同的方法：Unable to figure out how to create and run my user-defined R function in Shiny with input text boxes 我不得不选择这种新方法，因为在之前的方法中，我很想在server.R文件中重新创建在source.R中编写的整个R代码（您可以从链接问题的URL中看到该文件） ）。而且随着需求复杂性的增加，代码行也在增加。

所以，我认为最好将接口与现有的R脚本连接起来并运行代码并直接以闪亮的方式显示输出。这听起来很聪明，而不是重写server.R文件中的整个代码。此外，在之前的方法中，我观察到应用程序在执行各种其他操作时运行速度非常慢。

请帮我解决这个问题。我很有光泽。我一直在闪亮只工作一周。但我真的非常需要实施这个新的appraoch。它使事情变得更加容易和有效。