Shiny modaldialog

i have same fields in two different tables in SQL. for eg: In observeEvent() if i click on ID row on table1 it should get matched to table2 which have same field and should get displayed below.

observeEvent(input$majorgroup,{
    choices = c("All",unique(new[new$MAJOR==input$majorgroup | input$majorgroup=="All",][['MINOR']]))
    updateSelectInput(session=session, inputId = 'MINOR', choices = choices)
    
  })
  output$sku<-DT::renderDataTable(new,selection=list(mode="single", target="cell"),rownames = FALSE, options = list(dom = 't'))

  observeEvent(input$sku_cells_selected,
               {
                 
                 showModal(modalDialog(
                   title = "DESCRIPTION",
                   df[input$sku_cells_selected,]
     
                   
                 ))
                 
               })