根据 Shiny R 中的用户选择生成动态/多个输入框来收集数据

我正在尝试在 Shiny 中构建一个应用程序，该应用程序 (1) 询问用户他/她的投资组合中的资产数量。根据数字输入，(2) 向用户显示一个数字框，用于输入所拥有的投资组合的百分比以及资产的股票代码/名称。 例如，如果用户输入 3 作为投资组合中的资产数量，他将看到如下内容：

Asset1 ----> Enter ticker______      Enter Wight______

Asset2 ----> Enter ticker______      Enter Wight______

Asset3 ----> Enter ticker______      Enter Wight______

这被认为是动态的，因此资产数量越多，输入字段就越大。 最后，在步骤（3）中，我想将每个资产输入的信息保存在表格中并显示该表格。

这就是我所拥有的，但它离我需要的还差得很远。我对 Shiny 完全陌生，这是我遇到麻烦的一半原因：

UI.R

 shinyUI(pageWithSidebar (

  headerPanel( "Portfolio Returns"),

  sidebarPanel(

    numericInput("assets", label = "Enter Total Assets", value="")
    
  ),
 mainPanel(

tableOutput("table"))     
 )
) 

server.R

shinyServer(
  function(input,output) {
  output$DynamicAssets <- renderUI ({
  
  Assets <- as.integer(input$assets)
  
  for(i in 1:Assets,function(i) {
  "ticker" = textInput("Ticker", label="Enter Ticker", value="Enter Ticker"),
  
  "weight" = numericInput ("AssetWeight", label="weights of Assets", value="")
  
     })
    })

  })
 })

我知道代码已完成，因为我不知道下一步该做什么。这就是我通过网络搜索得出的全部信息。我们将非常感谢您的帮助。

ui.R

library(shiny)

shinyUI(pageWithSidebar (

  headerPanel( "Portfolio Returns"),

  sidebarPanel(
    numericInput("assets", label = "Enter Number of Assets in Portfolio", value="1"),
    uiOutput("tickers")
  ),
  mainPanel()
)) 

server.R
- 请注意，要传递多个项目renderUI()函数你必须将它们分组到一个列表中，在这里lapply()正在创建一个列表列表。

library(shiny)

shinyServer( function(input, output, session) {

  output$tickers <- renderUI({
    numAssets <- as.integer(input$assets)

    lapply(1:numAssets, function(i) {
      list(tags$p(tags$u(h4(paste0("Asset ", i)))),
           textInput(paste0("ticker", i), label = "Ticker Name", value = "Enter ticker..."),
           numericInput(paste0("weight", i), label = "Weight of Asset", value=0))  
    })
  })
})