如何在閃亮的應用程序中輸入ui.R值作爲矩陣定義的ncol和nrow值？

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)