如何在Shiny中对多个表进行排序

有没有办法对表中的列和另一个表中的同一列进行排序？例如，在下面的代码中，我用 mtcars 数据绘制了两个数据表，我想通过单击对第一个表的列 mpg 进行排序，自动在第二个表中显示相同的排序，如果我单击第二个表，则相同，自动排序第一个表。

library(DT)
library(shiny)

ui <- basicPage(
  h2("The mtcars data"),
  dataTableOutput("mytable"),
  br(),
  dataTableOutput("mytable2")
)

server <- function(input, output) {
  output$mytable = DT::renderDataTable({
    mtcars
  })
  output$mytable2 = DT::renderDataTable({
    mtcars
  })
}

shinyApp(ui, server)