如何在悬停在R中DT的每一行上时显示不同的图像

install.packages("DT")

data <- data.frame(
  image = c("path_to_image_1", "path_to_image_2", "path_to_image_3"),
  other_data = c("data_1", "data_2", "data_3")
)

render_image <- function(data, type, row) {
  tags$img(src = data, height = "50px", width = "50px")
}

datatable(data, 
          options = list(columnDefs = list(list(targets = 1, visible = FALSE))), 
          rownames = FALSE, 
          callback = JS(
            "table.on('mouseover', 'td', function(){",
            "  var colIdx = table.cell(this).index().column;",
            "  if(colIdx == 1){",
            "    var imgSrc = $(this).find('img').attr('src');",
            "    $('#image-preview').attr('src', imgSrc);",
            "  }",
            "});"
          )
) %>%
  formatStyle(columns = 'image', cursor = 'pointer') %>%
  formatStyle(columns = 'image', color = 'transparent') %>%
  formatStyle(columns = 'image', backgroundColor = 'transparent') %>%
  formatStyle(columns = 'image', backgroundRepeat = 'no-repeat') %>%
  formatStyle(columns = 'image', backgroundPosition = 'center') %>%
  formatStyle(columns = 'image', backgroundSize = '50px') %>%
  formatStyle(columns = 'image', lineHeight = '50px') %>%
  formatStyle(columns = 'image', textAlign = 'center')