如何使用r将列表(从html_nodes)中的值从米转换为千米？

# 安装和加载所需的包
install.packages("rvest")
library(rvest)

# 从网页中抓取列表数据
url <- "https://example.com"  # 替换为实际网页的URL
page <- read_html(url)
list_nodes <- html_nodes(page, "ul li")  # 替换为实际的HTML节点选择器

# 将列表数据转换为千米
converted_list <- lapply(list_nodes, function(node) {
  value <- as.numeric(html_text(node))
  value_km <- value / 1000
  return(value_km)
})

# 打印转换后的结果
print(converted_list)