R 在具有自适应约束的场景中使用自定义视觉效果

假设我想在交互式环境（如R Shining）中使用自定义图像或形状文件，例如纸飞机的图像：

我也愿意自己在程序中绘制图像，以便完全控制

但总体目标是允许用户拖动图像的边缘，程序可以跟踪每个维度的变化大小（比如纸飞机的翼展）

这里可能会有闪亮，还是我需要使用另一个程序？我还需要一些用户可用的更改统计信息

---

有没有人有类似的例子，或者可以为我指出正确的方向？

就像我在评论中写的那样，你可以使用shinyjqui软件包阅读用户的会话信息

可重复的示例如下所示：

library(shiny)
library(shinyjqui)
library(ggplot2)
server <- function(input, output, session){
  global <- reactiveValues(width = 400, height = 400)

  observe({
    print(session)
    if(!is.null(session$clientData[["output_plot1_height"]])){
      global$height <- session$clientData[["output_plot1_height"]]
      global$width <- session$clientData[["output_plot1_width"]]
    }
  })

  output$plot1 <- renderImage({
    outfile <- tempfile(fileext='.png')
    png(outfile, width = global$width, height = global$height)
    hist(rnorm(200))
    dev.off()
    list(src = outfile)
  }, deleteFile = TRUE)

  output$clientdataText <- renderText({
    paste("height is ", global$height, "width is", global$width)
  })


  }

ui <- fluidPage(
    verbatimTextOutput("clientdataText"),
    jqui_resizabled(plotOutput("plot1"))
)


shinyApp(ui, server)

库（闪亮）
图书馆（shinyjqui）
图书馆（GG2）
服务器：你能通过生成的图像的宽度来计算翼展吗？或者你会如何尝试？和的组合可以产生期望的结果，。。