Создание при наведении курсора мыши или при наведении курсора в RShiny

Question

Я создаю приложение с помощью RShiny, которое отображает pdf в виде PNG-изображения, которое затем отображается с помощью вызова imageOutput (при необходимости изображение может отображаться через другой вывод, например plotOutput).

Я бы хотел, чтобы пользователь мог навести указатель мыши или навести курсор на изображение, чтобы показать увеличенную, более масштабированную версию или подмножество того же изображения (пример ниже).

Есть ли способ свершившийся sh это в сиянии?

Спасибо

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, чтобы удовлетворить ваши потребности.