在R中使用反应向量时出错

我目前正在编写我的第一个闪亮应用程序，我对R也很陌生。我正在尝试创建一个带有

shinydashboard

的应用程序，用户可以通过

NumericiInput

选择某些值，这将修改用于图表的数据帧

我在一个名为

sc

的向量中使用输入。我使用这个向量乘以名为

df\u score

的数据帧的所有数值列。从该数据帧中，我随后使用各种图表计算导出其他数据帧

这是我的代码（简化）：

---

服务器您需要提供一个示例输入数据，以便我们可以运行代码。你确定df_分数的行数乘以数值列数可以被3整除吗？这似乎是一个R认为不正确的字符串断言。对不起，我明天会尝试生成一个，并将其添加到我的问题中。是的，我确信它是一样的，因为在我将
reactive（）
放在它周围之前它就工作了。我无法生成一个可复制的示例，不幸的是，我无法上传原始代码和数据。在如何检查闪亮应用程序中的错误方面有什么诀窍吗？当我编写原始代码时，我总是通过在excel文件中打印数据框进行检查。我不知道我怎么能在这里做到这一点，因为
server
是一个表达式..好吧，伙计们，忘了我问过的，一切都很好-我在向量中有一个输入错误。。。现在应用程序运行良好。无论如何，感谢这个伟大的社区。您需要提供一个示例输入数据，以便我们可以运行代码。你确定df_分数的行数乘以数值列数可以被3整除吗？这似乎是一个R认为不正确的字符串断言。对不起，我明天会尝试生成一个，并将其添加到我的问题中。是的，我确信它是一样的，因为在我将
reactive（）
放在它周围之前它就工作了。我无法生成一个可复制的示例，不幸的是，我无法上传原始代码和数据。在如何检查闪亮应用程序中的错误方面有什么诀窍吗？当我编写原始代码时，我总是通过在excel文件中打印数据框进行检查。我不知道我怎么能在这里做到这一点，因为
server
是一个表达式..好吧，伙计们，忘了我问过的，一切都很好-我在向量中有一个输入错误。。。现在应用程序运行良好。无论如何，感谢这个伟大的社区
    server <- function(input, output) {

    sc <- reactive({c(input$test1, input$test2, input$test3
          })

  (...some code...)

    observe({
    index <- which(sapply(df_score, is.numeric)== T)
    df_score_mat <- as.matrix(df_score[, index])
    df_score[,index] <- t(t(df_score_mat)*sc())
    })