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

Question

我正在使用 RShiny 构建一个应用程序，它将 pdf 呈现为 PNG 图像，然后通过调用 imageOutput 显示（如果需要，可以通过不同的输出呈现图像，例如 plotOutput）。

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

有没有办法在 Shiny 中实现这一点？

谢谢

Answer 1

这是基于w3schools的尝试：

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)

请使用transform 和transform-origin 来满足您的需求。