将Facebook htm文件转换为R中的dataframe

install.packages("rvest")
install.packages("xml2")
library(rvest)
library(xml2)

html <- read_html("path/to/facebook.htm")
nodes <- html_nodes(html, xpath = "//div[@class='contents']")

text <- html_text(nodes)
fields <- strsplit(text, "\n")

df <- data.frame()
for (i in 1:length(fields)) {
  row <- unlist(fields[i])
  df <- rbind(df, row)
}

colnames(df) <- c("Field1", "Field2", "Field3")
df$Field1 <- as.character(df$Field1)
df$Field2 <- as.numeric(df$Field2)
df$Field3 <- as.Date(df$Field3, format = "%Y-%m-%d")