RSelenium 从站点中提取文本

Question

我需要从网站上复制粘贴文本。我目前正在使用下面的代码打开浏览器会话，select 文本形成页面。但是，在我 select 编辑文本后，我一直无法弄清楚如何复制文本。

library(RSelenium)

rD <- rsDriver(browser = "chrome"
           ,verbose = TRUE
           ,chromever = "73.0.3683.68")

 Sys.sleep(3)

remDr <- rD[["client"]]

remDr$navigate("https://cran.r-project.org/web/packages/RSelenium/vignettes/basics.html")

remDr$sendKeysToActiveElement(list(key = 'control',"a", key = 'control')) # select text

我需要了解如何从剪贴板复制和读取文本。

Answer 1

以下代码从页面复制文本

library(RSelenium)

rD <- rsDriver(browser = "chrome"
       ,verbose = TRUE
       ,chromever = "73.0.3683.68")

 Sys.sleep(3)

remDr <- rD[["client"]]

remDr$navigate("https://cran.r-project.org/web/packages/RSelenium/vignettes/basics.html")

remDr$sendKeysToActiveElement(list(key = 'control',"a", key = 'control')) # select text

remDr$sendKeysToActiveElement(list(key = 'control',"c", key = 'control')) # copy text to memory

df <- read.table(file = "clipboard", # save to df from clipboard
         header = F,
        skip = 2,
        fill = TRUE,
         sep = "\t")
dim(df)
[1] 260   1

RSelenium 从站点中提取文本

RSelenium Extract text from site

r

rselenium