有沒有辦法讓服務器 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，但可以看到操作按鈕被創建但它沒有反應。