如何在R shiny中使用箭头键/操作按钮移动渲染图像(由用户上传)？

library(shiny)

ui <- fluidPage(
  titlePanel("Move Image with Arrow Keys"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file", "Choose an image...", accept = c("image/png", "image/jpeg"))
    ),
    mainPanel(
      tags$head(tags$script(src = "https://code.jquery.com/jquery-3.6.0.min.js")),
      tags$head(tags$script('
        $(document).on("shiny:connected", function(event) {
          $(document).keydown(function(e) {
            var img = $("#image");
            var offset = img.offset();
            switch(e.which) {
              case 37: // Left arrow
                offset.left -= 10;
                break;
              case 38: // Up arrow
                offset.top -= 10;
                break;
              case 39: // Right arrow
                offset.left += 10;
                break;
              case 40: // Down arrow
                offset.top += 10;
                break;
            }
            img.offset(offset);
          });
        });
      ')),
      uiOutput("image")
    )
  )
)

server <- function(input, output) {
  output$image <- renderUI({
    if (!is.null(input$file)) {
      tags$img(id = "image", src = input$file$datapath, style = "position: absolute;")
    }
  })
}

shinyApp(ui, server)