Question

我在一个闪亮的应用程序的ui.R中提供用户输入字段：

library(shiny)
shinyUI(
            numericInput("n_sampling", "Number of Samples")
)

然后我希望n_resampling可用server.R作为设置矩阵的参数：

library(shiny)
shinyServer(
    function(input, output)
    {
        n_row <- reactive({as.numeric(input$n_sampling)})
        loess_functions <- matrix(NA, nrow=n_row, ncol=50)
    }
)

我收到的消息是matrix(NA, ...)中存在错误，表示存在非数字矩阵扩展。

如何提取n_sampling的用户输入值？

Answer 1

尝试以下示例：

require(shiny)

#define app
app <- shinyApp(
  ui = bootstrapPage(
    numericInput("n_row", "Number of Rows",10),
    numericInput("n_col", "Number of Columns",10),
    tableOutput("mymatrix")
  ),
  server = function(input, output) {
    loess_functions <- reactive({matrix(NA, 
                                        nrow=input$n_row, 
                                        ncol=input$n_col)})
    output$mymatrix <- renderTable(loess_functions())
  }
)

#run app
runApp(app)

如何在闪亮的应用程序中将ui.R值作为ncol和nrow值输入矩阵定义？

1 个答案: