I want add js to shiny.(hyperlink from one datatable to another in shiny)

[Karen]

library(shiny)
library(DT)
ui <- fluidPage(
  tabsetPanel(
    tabPanel("One",
             DT::dataTableOutput("test1")
    ),
    tabPanel("two",
             selectInput("select", h3("SELECT"), 
                         choices = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), selected = 1)
    )))
server <- function(input, output, session) {
  df <- reactive({
    cbind(seq_len(nrow(mtcars)),mtcars)
  })
  output$test1 <- DT::renderDataTable({
    df()
  },rownames=FALSE,options=list(dom="t"),
  callback=JS(
    'table.on("click.dt", "tr", function() {
    
    tabs = $(".tabbable .nav.nav-tabs li a");
    var data=table.row(this).data();
    
    document.getElementById("select").value=data[0];
    Shiny.onInputChange("select",data[0]);
    $(tabs[1]).click();
    table.row(this).deselect();})'
  ))
}
shinyApp(ui = ui, server = server)

I want make a hyperlink from one datatable to another in shiny by the same id. I have found similiar code and tried to revised it. But it doesn't work. Can someone tell me how to fix it? Thank you.