R 创建一个t检验，并使用SHINK从csv获得p值

我试图创建一个闪亮的UI来输入CSV，执行配对t检验（等方差），并从样本数据集生成热图

我已经能够生成一个UI CSV上载选项卡，但是，我现在正在努力使用我的t-test和p-value选项卡，我继续收到以下错误消息：

警告：错误：计算嵌套太深：无限递归/选项（表达式=）？ 90:

---

shinyServer如果没有可复制的示例（参见注释），我猜可能是您的反应。即：

data1 <- reactive({
     data1 <- data.matrix(data5())
   })

编辑：

找到它：

   P.Vals <- reactive({
     as.character(P.Vals())
   })

P.Vals欢迎来到StackOverflow！请阅读相关信息以及如何给出建议。这将使其他人更容易帮助你。你能包含你的代码并指出哪个位出错吗？@RAB为代码过长和混乱道歉，我正在努力理解它，但我已经添加了我的代码，并愿意更清楚地说明我是否对代码做了一些更改，现在我的警告信息是警告：dframe中有错误：找不到函数“dframe”。很抱歉，我无法帮助您处理“dframe”-我看不到您更新的代码。难道你只是拼错了“data.frame”吗？
data1 <- reactive({
     data1 <- data.matrix(data5())
   })

data1 <- reactive({
   data.matrix(data5())
})

   P.Vals <- reactive({
     as.character(P.Vals())
   })