如何在 R 的闪亮应用中使用 loop for UIIntext中的textInput?

我试过这种方式,但它不起作用 . 能否请你帮忙 .

for(q in (1:4)){
   for(w in (1:5)){
     textInput(paste("Prod", q, "Item", w, sep=""), 
     paste("Enter Item", w, "for Product", q, sep=""), "eg : 3")
     verbatimTextOutput(paste("Prod", q, "Item", w, sep=""))
     }
}