在 RShiny 中创建鼠标悬停缩放或悬停缩放
Creating a mouseover zoom or hover zoom in RShiny
我正在使用 RShiny 构建一个应用程序,它将 pdf 呈现为 PNG 图像,然后通过调用 imageOutput 显示图像(如果需要,可以通过不同的输出呈现图像,例如 plotOutput)。
我希望用户能够将鼠标悬停在图像上或将鼠标悬停在图像上以显示更大、更放大的版本或同一图像的子集(下面的示例)。
有没有办法在 Shiny 中完成此操作?
谢谢
这里是基于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
以满足您的需要。
我正在使用 RShiny 构建一个应用程序,它将 pdf 呈现为 PNG 图像,然后通过调用 imageOutput 显示图像(如果需要,可以通过不同的输出呈现图像,例如 plotOutput)。
我希望用户能够将鼠标悬停在图像上或将鼠标悬停在图像上以显示更大、更放大的版本或同一图像的子集(下面的示例)。
有没有办法在 Shiny 中完成此操作?
谢谢
这里是基于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
以满足您的需要。