在RShiny中创建鼠标悬停缩放或悬停缩放

我正在使用RShiny构建一个应用程序，它将pdf渲染为PNG图像，然后通过调用imageOutput显示该图像（如果需要，可以通过其他输出渲染图像，如plotOutput）

我希望用户能够将鼠标悬停在图像上，以显示同一图像的更大、更放大的版本或子集（下面的示例）

有没有一种方法可以在Shiny中实现这一点

多谢各位

---

以下是基于以下内容的尝试：

库（闪亮）
ui以下是基于以下内容的尝试：

库（闪亮）
ui有多个。有多个。我最终使用了W3schools（）提供的这个，感谢您向我发送该方向的信息，很高兴能提供帮助。也许可以添加您的答案，以帮助未来的搜索者。@michael，您能否与您的实现共享一个代码示例，因为我正试图为相关问题找到最佳解决方案。lucaskr的问候语。我找不到我使用的代码片段，我最终使用了W3schools（）提供的代码片段，感谢您向我发送该方向的信息，很高兴能提供帮助。也许可以添加您的答案，以帮助未来的搜索者。@michael，您能否与您的实现共享一个代码示例，因为我正试图为相关问题找到最佳解决方案。lucaskr的问候语。我找不到我使用的代码段
library(shiny)

ui <- fluidPage(
    uiOutput('image'),
    tags$style('div#image:hover {
                 transform: scale(1.5);
                 transform-origin: top left;
                }')
)

server <- function(input, output, session) {
  output$image <- renderUI({
      tags$img(src = 'https://i.stack.imgur.com/dlaci.jpg', width = 400)
  })
}

shinyApp(ui, server)