使用 RSelenium 时缩小网站而不更改页面大小/分辨率

Question

我想缩小 RSelenium 遥控器，但这很难找到解决方案。我知道

• 如何在 R 中使用 RSelenium 库缩小页面？，但我不想调整页面大小或分辨率——只是缩小。
• 我考虑过同时发送control+ substract，但这也不太有效。我已经了解了如何使用 RSelenium 在网页中同时按下两个键（即 control-s）？，正如OP所指出的，control+起作用，但+a不起作用，随后+也不起作用。controlscontrolsubstract
• 我还尝试了如何将 RSelenium ALT+S 中的同时键发送到 Web 驱动程序？中指定的 Unicode 方法。，这也不起作用。

library(RSelenium)
driver <- rsDriver()
remDr <- driver[["client"]]
remDr$navigate("https://www.google.com/")
webElem <- remDr$findElement("css", "html")
webElem$sendKeysToElement(list(key = "control", "-"))              ## Does not work
webElem$sendKeysToElement(list(key = "control", key = "subtract")) ## Does not work

浏览器是Chrome。

Answer 1

我不认为问题在于将密钥发送到浏览器，因为如链接帖子中所述，可以发送control + a到浏览器窗口来选择元素。看起来这些按键没有被识别为浏览器应用程序的命令。

然而，还有其他方法可以解决这个问题。

正如 @Muzzamil 所建议的，您可以通过使用 Chrome 更改文档正文的 css 来获得类似的效果，尽管这在 Firefox 中不起作用。

如果您想以一种在整个会话中持续存在的方式本地更改浏览器缩放，我可以使用 Firefox 和 Chrome 演示解决方案，因为在这两种情况下，人们都可以导航到基于 html 的选项页面并与其交互以设置浏览器缩放等级。

使用 Firefox 的方法如下：

library(RSelenium)

zoom_firefox <- function(client, percent)
{
  store_page <- client$getCurrentUrl()[[1]]
  client$navigate("about:preferences")
  webElem <- client$findElement("css", "#defaultZoom")
  webElem$clickElement()
  webElem$sendKeysToElement(list(as.character(percent)))
  webElem$sendKeysToElement(list(key = "return"))
  client$navigate(store_page)
}

这允许以下操作：

driver <- rsDriver(browser = "firefox")
client <- driver$client
client$navigate("https://www.google.com")
client$screenshot(display = TRUE)

我们可以看到默认缩放已设置（100%）：

现在我们缩小到 50%，如下所示：

driver <- rsDriver(browser = "firefox")
client <- driver$client
client$navigate("https://www.google.com")
client$screenshot(display = TRUE)

然后像这样放大：

zoom_firefox(client, 50)
client$screenshot(display = TRUE)

Chrome 则更难，因为它的选项页面使用复杂的嵌套影子 DOM。由于我们无法获得 xpath 或 css 选择器来导航 Shadow dom，因此我们需要使用 javascript 提取元素的 Webdriver id，然后将此 Id 强制到我们可以控制的另一个 Web 元素上。

zoom_chrome <- function(client, percent)
{
  store_page <- client$getCurrentUrl()[[1]]
  client$navigate("chrome://settings/")
  webElemId <- client$executeScript(paste0("return document.querySelector",
                                           "(\"body > settings-ui\").",
                                           "shadowRoot.querySelector(\"#main\")",
                                           ".shadowRoot.querySelector",
                                           "(\"settings-basic-page\")",
                                           ".shadowRoot.querySelector",
                                           "(\"#basicPage > ",
                                           "settings-section:nth-child(8)",
                                           "> settings-appearance-page\")",
                                           ".shadowRoot.querySelector",
                                           "(\"#zoomLevel\");"),
                                    args = list("dummy"))
  webElem <- client$findElement("css", "html")
  webElem@.xData$elementId <- as.character(webElemId)
  webElem$clickElement()
  webElem$sendKeysToElement(list("3"))
  zooms <- c(25, 33, 50, 67, 75, 8:11 * 10, 125, 150, 175, 200, 250, 3:5 * 100)
  desired_zoom <- which.min(abs(percent - zooms))
  current_zoom <- which(zooms == 300)
  n_keys <- desired_zoom - current_zoom
  if(n_keys > 0) 
    for(i in seq(n_keys)) 
      webElem$sendKeysToElement(list(key = "down_arrow"))
  if(n_keys < 0) 
    for(i in seq(abs(n_keys))) 
      webElem$sendKeysToElement(list(key = "up_arrow")) 
  webElem$sendKeysToElement(list(as.character(percent)))
  webElem$sendKeysToElement(list(key = "return"))
  client$navigate(store_page)
}

但它的工作原理是一样的：

driver <- rsDriver(browser = "chrome", chromever = "80.0.3987.106")
client <- driver$client
client$navigate("https://www.google.com")
client$screenshot(display = TRUE)
zoom_chrome(client, 50)
client$screenshot(display = TRUE)
zoom_chrome(client, 100)
client$screenshot(display = TRUE)

这给出了与 Firefox 完全相同的结果。

当然，您可以轻松编写一个简单的包装函数，根据当前浏览器选择要调用的“缩放”函数。

我还没有考虑在 Internet Explorer 或 phantomjs 中实现此功能，因为它们没有基于 html 的选项页面。