java回车后自动从一个文本框切换到另一个_第4课：一个周末学会R语言数据采集： Selenium常用操作...-CSDN博客

本文介绍了如何使用R语言中的RSelenium包来自动化控制浏览器，包括开启远程驱动、浏览网页、元素交互、数据抓取等操作。通过示例代码展示了如打开浏览器、导航、点击、输入、抓取页面元素信息等基本功能，帮助读者掌握RSelenium在数据爬取中的应用。

摘要由CSDN通过智能技术生成

本章目标：掌握RSelenium核心操作，可以用R自动化控制浏览器。

一、什么是RSelenium

RSelenium是一个R语言下的包，通过这个包，我们可以通过脚本控制浏览器进行浏览、点击、输入内容、解析数据等操作，实现R语言的自动化数据爬取。

二、打开RSelenium包

打开cmd启动Selenium Server（不要关闭）

java -Dwebdriver.chrome.driver="C:UserselemeDownloadschromedriver.exe" -jar C:UserselemeDownloadsselenium-server-standalone-3.0.1.jar

Rstudio中调用RSelenium包

#打开RSelenium包
library(RSelenium)

建立远程驱动实例，我们可以通过这个实例进行各种网页操作

#建立远程驱动实例
remDr <- remoteDriver(
  browserName = "chrome",
  remoteServerAddr = "localhost",
  port = 4444L
  platform = "ANY"
)

三、R操作浏览器的方法

四、R环境操作实例

#打开，关闭Session
remDr$open()

chrome显示正在受自动测试软件控制

#浏览网页
remDr$navigate('https://sh.lianjia.com/xiaoqu/')

navigate网页后显示页面

#后退，前进，刷新
remDr$goBack()
remDr$goForward()
remDr$refresh()

#抓取元素位置
xiaoqu_name_element <- remDr$findElement(using = "xpath", value = "/html/body/div[4]/div[1]/ul/li[1]/div[1]/div[1]/a")

#点击元素位置
xiaoqu_name_element$clickElement()

clickElement后，浏览器打开了上海康城的网站

#输入文本、清空文本
input_element <- remDr$findElement(using = "xpath", value = '//input[@id="searchInput"]')
input_element$sendKeysToElement(list('上海',key='enter')) #注意文本以list类型输入,key = 'enter'表示输入内容后直接按回车键
input_element$clearElement() #表示清楚文本内容

通过sendKeysToElement方法将“上海”传入文本框

#抓取元素值、抓取元素属性
xiaoqu_name_element <- remDr$findElement(using = "xpath", value = "/html/body/div[4]/div[1]/ul/li[1]/div[1]/div[1]/a")
xiaoqu_name_element$getElementText() 结果返回小区名称

xiaoqu_name_element$getElementAttribute('href')结果返回小区名称的href属性值（小区链接）

分别返回了元素值以及元素的href属性值

常用的RSelenium操作标签已经举例，其他操作可以参见官方文档RSelenium文档

本课完整代码：

#打开RSelenium包
library(RSelenium)

# 建立远程驱动实例
remDr <- remoteDriver(
  browserName = "chrome",
  remoteServerAddr = "localhost",
  port = 4444L
  platform = "ANY"
)

#打开，关闭Session
remDr$open()

#浏览网页
remDr$navigate('https://sh.lianjia.com/xiaoqu/')

#后退，前进，刷新
remDr$goBack()
remDr$goForward()
remDr$refresh()

#抓取元素位置
xiaoqu_name_element <- remDr$findElement(using = "xpath", value = "/html/body/div[4]/div[1]/ul/li[1]/div[1]/div[1]/a")

#点击元素位置
xiaoqu_name_element$clickElement()

#输入文本、清空文本
input_element <- remDr$findElement(using = "xpath", value = '//input[@id="searchInput"]')
input_element$sendKeysToElement(list('上海',key='enter')) #注意文本以list类型输入,key = 'enter'表示输入内容后直接按回车键
input_element$clearElement() #表示清楚文本内容

#抓取元素值、抓取元素属性
xiaoqu_name_element <- remDr$findElement(using = "xpath", value = "/html/body/div[4]/div[1]/ul/li[1]/div[1]/div[1]/a")
xiaoqu_name_element$getElementText() 结果返回小区名称
xiaoqu_name_element$getElementAttribute('href')结果返回小区名称的href属性值（小区链接）

数据采集课程：

有马骏：第0课：一个周末学会R语言数据采集：数据从哪里来？zhuanlan.zhihu.com