RSelenium -如何获取节点的子节点号及其xpath

library(RSelenium)

# 启动浏览器
driver <- rsDriver(browser = "chrome")
remDr <- driver[["client"]]

# 打开网页
remDr$navigate("https://example.com")

# 查找父节点
parent_node <- remDr$findElement(using = "xpath", value = "//div[@id='parent']")

# 获取子节点
child_nodes <- parent_node$findElements(using = "xpath", value = ".//*")

# 遍历子节点
for (i in 1:length(child_nodes)) {
  # 获取子节点的属性
  child_xpath <- child_nodes[[i]]$getElementAttribute("xpath")$value
  child_number <- child_nodes[[i]]$getElementAttribute("number")$value
  
  # 打印子节点的xpath和编号
  cat("子节点", i, "的xpath:", child_xpath, "\n")
  cat("子节点", i, "的编号:", child_number, "\n")
}

# 关闭浏览器
remDr$close()