如何在RSelenium中使用executeScript模拟快捷键按下操作

要在RSelenium里通过JavaScript模拟Ctrl+Shift+R组合键，你需要正确构造KeyboardEvent并确保事件能被浏览器正确捕获——之前的尝试失败大多是因为事件参数不全或未正确派发事件到文档对象。

可行的JavaScript代码 #

模拟Ctrl+Shift+R需要同时设置ctrlKey、shiftKey为true，指定正确的按键值，并且让事件支持冒泡（浏览器默认的快捷键监听通常在document层面）。完整的按键流程需要派发keydown和keyup事件（多数快捷键触发只需要keydown，但完整流程更贴近真实操作）：

// 构造Ctrl+Shift+R的keydown事件
var keyDownEvent = new KeyboardEvent('keydown', {
  key: 'R',          // Shift+R对应的key值为大写R
  code: 'KeyR',      // 按键的标准编码
  ctrlKey: true,
  shiftKey: true,
  bubbles: true,     // 允许事件冒泡到document层面
  cancelable: true
});
document.dispatchEvent(keyDownEvent);

// 构造keyup事件（可选，部分场景需要完整按键周期）
var keyUpEvent = new KeyboardEvent('keyup', {
  key: 'R',
  code: 'KeyR',
  ctrlKey: true,
  shiftKey: true,
  bubbles: true,
  cancelable: true
});
document.dispatchEvent(keyUpEvent);

结合RSelenium的完整示例 #

把上述代码整合到你的R脚本中，替换之前的尝试代码：

library(RSelenium)
library(netstat)

# 启动Chrome浏览器
rD <- rsDriver(port = free_port(), browser = "chrome", chromever = "latest", verbose = F)
remDr <- rD$client

url = "https://stocktwits.com/symbol/NZDCHF"
remDr$navigate(url) 

# 测试JavaScript执行（滚动页面验证功能）
script = "window.scrollTo(0,document.body.scrollHeight);"
remDr$executeScript(script)

# 模拟Ctrl+Shift+R快捷键
script <- '
var keyDownEvent = new KeyboardEvent("keydown", {
  key: "R",
  code: "KeyR",
  ctrlKey: true,
  shiftKey: true,
  bubbles: true,
  cancelable: true
});
document.dispatchEvent(keyDownEvent);

var keyUpEvent = new KeyboardEvent("keyup", {
  key: "R",
  code: "KeyR",
  ctrlKey: true,
  shiftKey: true,
  bubbles: true,
  cancelable: true
});
document.dispatchEvent(keyUpEvent);
'
remDr$executeScript(script)

# 关闭浏览器与服务
remDr$close()
rD$server$stop()

备选方案：Chrome DevTools协议模拟 #

如果JavaScript模拟系统级快捷键（如Chrome刷新）无效，可通过Chrome DevTools协议直接发送按键事件，绕过JS的限制：

# 用CDP模拟Ctrl+Shift+R按键
remDr$executeCdpCommand("Input.dispatchKeyEvent", list(
  type = "keyDown",
  windowsVirtualKeyCode = 82,  # R键的虚拟键码
  ctrlKey = TRUE,
  shiftKey = TRUE
))
remDr$executeCdpCommand("Input.dispatchKeyEvent", list(
  type = "keyUp",
  windowsVirtualKeyCode = 82,
  ctrlKey = TRUE,
  shiftKey = TRUE
))

内容的提问来源于stack exchange，提问作者Camilo