如何通过命令行将Viewer Pane保存为图像？

问题描述 投票：19回答：1

假设我在查看器窗格中查看了以下HTML

tempDir <- tempfile()
dir.create(tempDir)
htmlFile <- file.path(tempDir, "index.html")
write('<h1> Content</h1>', htmlFile, append = TRUE)
write('<h2> Content</h2>', htmlFile, append = TRUE)
write('lorem ipsum...', htmlFile, append = TRUE)
viewer <- getOption("viewer")
viewer(htmlFile)

当我在查看器窗格中有这个html时，我可以点击“另存为图像”按钮：

enter image description here

我将html内容作为png，例如：

enter image description here

有没有办法用命令行执行此操作？我知道rstudioapi::savePlotAsImage()，所以我正在寻找一种saveViewerAsImage。

编辑：我知道我们可以使用{webshot}包来做到这一点，但我正在寻找能够做到这一点的RStudio函数。

r rstudio
1个回答
13
投票

这是一个提案。策略如下：

  1. 让观众建立png
  2. 将png从观众发送到R

让观众建立png

canvas image拥有一个.toDataURL() method，它返回一个数据URI，其中包含png格式的图像表示（我们也可以获得jpeg格式）。

html2canvas library可用于截取屏幕截图：此库将当前页面呈现为canvas图像。

因此，可以在查看器中组合这两个函数：

  • 用html2canvas截取屏幕截图
  • 使用png将此屏幕截图转换为.toDataURL()

但是，html2canvas库使用（Windows版本）RStudio查看器不支持的JavaScript Promises：需要polyfill。

将png从观众发送到R.

使用WebSockets可以实现此任务。

httpuv包可用于创建Web服务器。此服务器将提供将在HTML查看器中打开的RStudio页面。

在httpuv服务器和RStudio查看器之间建立WebSocket通信。

从R命令行，可以向RStudio查看器发送WebSocket消息：接收此消息，查看器获取屏幕截图并将其发送回服务器。

代码

对不起，这段代码很长时间才能得到答案。

library(httpuv)

# Initialize variables
png <- NULL
websocket <- NULL

# Download Javascript libraries
polyfill_promise <- readLines('https://cdn.jsdelivr.net/npm/es6-promise/dist/es6-promise.auto.min.js')
html2canvas <- readLines('https://html2canvas.hertzen.com/dist/html2canvas.min.js')

# Configure the httpuv server
app <- list(
  call = function(req) {
    list(
      status = 200L,
      headers = list(
        'Content-Type' = 'text/html'
      ),
      body = paste0(collapse = "\r\n",
                    c("<!DOCTYPE html>",
                      "<html>",
                      "<head>",
                      # polyfill the RStudio viewer to support JavaScript promises
                      '<script type="text/javascript">',
                      polyfill_promise,
                      "</script>",
                      # use html2canvas library
                      '<script type="text/javascript">',
                      html2canvas,
                      "</script>",
                      "</head>",
                      "<body>",
                      html_body,
                      "</body>",
                      '<script type="text/javascript">',
                      # Configure the client-side websocket connection:
                      'var ws = new WebSocket("ws://" + location.host);',
                      # When a websocket message is received:
                      "ws.onmessage = function(event) {",
                      # Take a screenshot of the HTML body element
                      "  html2canvas(document.body).then(function(canvas) {",
                      # Transform it to png
                      "    var dataURL = canvas.toDataURL();",
                      # Send it back to the server
                      "    ws.send(dataURL);",
                      "  });",
                      "};",
                      "</script>",
                      "</html>"
                    )
      )
    )
  },
  # Configure the server-side websocket connection
  onWSOpen = function(ws) {
    # because we need to send websocket message from the R command line:
    websocket <<- ws
    # when a websocket message is received from the client
    ws$onMessage(function(binary, message) {
      png <<- message
    })
  }
)

# From your question:
html_body <- c(
  '<h1> Content</h1>', 
  '<h2> Content</h2>', 
  'lorem ipsum...'
)

# Start the server:
server <- startDaemonizedServer("0.0.0.0", 9454, app)

# Open the RStudio viewer:
rstudioapi::viewer("http://localhost:9454")
# Wait to see the result...

# Send a websocket message from the command line:
websocket$send("go") # send any message

# Write the png image to disk:
writeBin(
  RCurl::base64Decode(
    gsub("data:image/png;base64,", "", png), 
    "raw"
  ), 
  "screenshot.png"
)

# Close the websocket connection
websocket$close()

# Stop the server
stopDaemonizedServer(server)
最新问题
© www.soinside.com 2019 - 2024. All rights reserved.