使用R登录后从网站上抓取.txt表

install.packages(c("httr", "rvest", "stringr"))

library(httr)

# 设置登录网站的URL和登录信息
login_url <- "https://example.com/login"
username <- "your_username"
password <- "your_password"

# 创建登录请求
login_payload <- list(
  username = username,
  password = password
)

# 发送登录请求
login_response <- POST(url = login_url, body = login_payload, encode = "form")

# 获取登录后的会话
session <- jump_to(login_response, "https://example.com/after_login_page")

library(rvest)

# 读取登录后的网页内容
page <- read_html(session)

# 提取表格数据
tables <- html_table(page)

# 将表格数据保存为.txt文件
write.table(tables[[1]], file = "table.txt", sep = "\t", quote = FALSE)