Question

我正在写一篇Shiny中的心理测量学应用程序。我很新，但我正在处理大多数问题。但是，我似乎无法找到的是如何将textInput框中的输入提供给make.keys函数的keys.list参数。以下是我到目前为止的情况：

服务器：

scale <- reactive({
data <- data_fa()
key.list <- as.numeric(unlist(strsplit(input$test, "[,]")))
make.keys(ncol(data), key.list)
})

UI：

textInput("test", "Test:", "1")

我没有发布整个代码，因为它太长而与问题无关。我尝试了各种解决方案，但我到目前为止还没有。该函数的思想是使用1,0或-1作为值来生成一个或多个列和行的矩阵。这段代码让我得到了一个点，即textInput中填入的每个数字都会生成另一列，而它应该填充一行。

我也尝试过使用shinyIncubator和matrixInput。它可以工作，但问题是我不能在那里按需添加列。

所以，非常感谢任何帮助！