Shiny DT表功能

不知道为什么会这样。有人能帮我吗？当应用程序打开时（默认情况下），单击箭头（第二行中的小箭头），会弹出模式框（这很好）。但当选择其他日期（今天除外）时，数据会更改。但现在，如果单击小箭头，则不会弹出模式框。不知道为什么？有人能帮我吗

library(shiny)
library(shinydashboard)
library(DT)

number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE)))

sidebar <- dashboardSidebar()

body <- dashboardBody(
  fluidRow(box(width = 12, solidHeader = TRUE,
               DTOutput("example_table"),
               # actionButton("sam","sam"),
               dateInput("da","Date", value = Sys.Date(), min = Sys.Date()-1, max = Sys.Date()+1))
  )
)

ui <- dashboardPage(dashboardHeader(title = "Example"),
                    sidebar,
                    body
)


server <- function(input, output) {
  
  
  number_compare$X2[which(rownames(number_compare) == 2)] = paste(with(number_compare, X2[rownames(number_compare) == 2])," ", " ",as.character(actionLink(inputId="ang", label="", icon("caret-up"))))
 
  
  
  output$example_table <- DT::renderDT({
    
    if(input$da == Sys.Date())
    {
      datatable(
        number_compare[c(2,3:4),],
        escape = FALSE
        ,options=list(preDrawCallback=JS(
          'function() {
          Shiny.unbindAll(this.api().table().node());}'),
              drawCallback= JS(
                'function(settings) {
                Shiny.bindAll(this.api().table().node());}')))
        } else {
          datatable(
            number_compare[c(2,5:6),],
            escape = FALSE
            ,options=list(preDrawCallback=JS(
              'function() {
              Shiny.unbindAll(this.api().table().node());}'),
              drawCallback= JS(
                'function(settings) {
                Shiny.bindAll(this.api().table().node());}')))
        }
        
  })

  

  observeEvent(input$ang,{
    if(!is.null(input$da))
    {
      print("clicked")
      showModal(modalDialog(
        title = "dsd"
      ))
    }
  })
  
  
  
  }

shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
图书馆（DT）
数字\u比较两个不同的ActionLink具有相同的ID。它们需要不同。然后，第二个日期也会弹出对话框（带有另一个observeEvent）。谢谢。我修改了我的代码并进行了编辑。即使现在它也不起作用