根据数据表显示响应式UI

Question

我应该如何根据数据表生成反应式UI。

像

数据框

count Number average 20 50 23 'DOWNLOAD BUTTON','DELETE BUTTON'

对于所有行，这应该继续。

我的代码如下

UIoutput并没有帮助我实现我想要的目标。如何将反应按钮放在rendertable？

中

shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      fileInput('file1', 'PLEASE UPLOAD THE CSV FILE',
                accept = c(
                  'text/csv',
                  'text/comma-separated-values',
                  'text/tab-separated-values',
                  'text/plain',
                  '.csv',
                  '.tsv'
                )
      ),
      uiOutput("more")
),
    mainPanel(
      tabsetPanel(
        tabPanel("Table", tableOutput("table"))
      )
    )
  )
))

shinyServer(function(input, output) {
  datasetInput <- reactive({
    return (input$file1)
  })

  output$table <- renderTable({
    inFile <- input$file1
    if (is.null(inFile))
      return(NULL)
    output_table<-read.csv(inFile$datapath, header = input$header, 
             sep = input$sep)
    output_table<-process(output_table)
    output_table$action_button<-output$more()
    return(output_table)
  })
output$more<-renderUI({
      return (actionButton("but","butt"))
  })
})