rshiny ui中for循环内的逗号

library(shiny)

ui <- fluidPage(
  titlePanel("使用for循环创建输入框"),
  sidebarLayout(
    sidebarPanel(
      for (i in 1:3) {
        textInput(inputId = paste0("input", i), label = paste0("输入框 ", i))
      }
    ),
    mainPanel(
      verbatimTextOutput(outputId = "text")
    )
  )
)

server <- function(input, output) {
  output$text <- renderPrint({
    inputs <- sapply(1:3, function(i) input[[paste0("input", i)]])
    inputs
  })
}

shinyApp(ui = ui, server = server)