有没有办法让服务器 function 中的操作按钮响应以显示 output？

Question

我正在开发一个 shiny 应用程序，我希望在其中创建我的操作按钮并从我的代码的服务器部分进行响应并显示 output。

我当前的代码如下所示：

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      body {
      background-color: #black
      }"))),br(),
  titlePanel(h1("Query Engine", align = 'Center')),br(),
  #helpText("", align='Center'),
  sidebarLayout(
    sidebarPanel( width = 3,
                  sliderInput("amnt", label='Amount (USD)',
                              min= as.integer(min(df$gross_amount))-1, max=as.integer((max(df$gross_amount)))+1, #subtract/add 1 cuz cutting off the cents
                              value = c(min(df$gross_amount),max(df$gross_amount)), step = 0),
                  
                  uiOutput("date"), #input#1
                  uiOutput("customer"), #input#2
                  uiOutput("id"), #input#3
                  actionButton("btn","Summary", width = '100%'), br()
    ),

mainPanel(
     tabPanel("1", value = "check1", DT::dataTableOutput("table_subset1")),
tabPanel("2", value = "check2", DT::dataTableOutput("table_subset2"))

)
      
    )
  )
)
#################  Server_Part ################# 
 df$Check_Name[df$check_id==1 ]<- data.table(as.character(actionButton("btn1","Creation")))


  submit1 <- eventReactive(input$btn1,{
    idfilter <- df_filtered1()[ , c('id','company','code','amount','gst', 'hst_amount','currency')]
  })
  [enter image description here][1]
  # this is the output which we are showing:
  output$table_subset1 <- DT::renderDataTable({
    DT::datatable(distinct(submit1()), options = list(scrollX = T))
  })

 observeEvent(input$btn1, {updateTabsetPanel(session, "tabset1", selected = "check1")})

这只是一个虚拟代码和虚拟数据，主要是我的操作按钮成功出现但它没有反应。 有人可以帮我弄清楚我在做什么错吗？

output图片：

我无法显示整体 output，但可以看到操作按钮被创建但它没有反应。