r - Shiny 的矩阵形式的动态输入小部件

Question

我开发了一个使用 shiny 的应用程序，它允许用户输入他选择的行数和列数，然后它将相应地在主面板中相应地显示许多输入小部件。目前有 1 列和尽可能多的行。

我的挑战是如果用户选择超过 1 列并且这些新列应该以矩阵形式与主面板中的现有小部件相邻，则复制相同的内容。

该怎么做？

我的代码:

library(shiny)

ui <- shinyUI(fluidPage(
  titlePanel(title = "Adding input widgets horizontally and dynamically"), 
  sidebarLayout(

    sidebarPanel(numericInput("rows","Input No. of rows",value = 5),
                 br(),
                 numericInput("col","input No of col",value = 1)),

    mainPanel(uiOutput("plo"))
  )
)
)

server <- function(input,output){

  output$plo <- renderUI({

    lapply(seq(input$rows),function(i){
      numericInput(inputId = paste0("range",i),label = "col1",value = i)  
    })
  })
}

shinyApp(ui,server)

Answer 1

您可以用非常相似的方式做到这一点，使用另一个 lapply 将内部 lapply 包裹在 column 中。尝试以下操作:

library(shiny)

ui <- shinyUI(fluidPage(
  titlePanel(title = "Adding input widgets horizontally and dynamically"), 
  sidebarLayout(

    sidebarPanel(numericInput("rows","Input No. of rows",value = 5,min=1),
                 br(),
                 numericInput("col","input No of col",value = 1,min=1)),

    mainPanel(uiOutput("plo"))
  )
)
)

server <- function(input,output){

  output$plo <- renderUI({

    lapply(seq(input$col), function(j){
      column(width=3,
      lapply(seq(input$rows),function(i){
        numericInput(inputId = paste0("range",i,"_",j),label = "col1",value = i)  
      })
      )
    })
  })
}

shinyApp(ui,server)

希望这对您有所帮助!