library(httr)

# 基本GET请求
response <- GET("https://example.com/api/data")
content <- content(response, "text")

# 带参数的请求
response <- GET("https://example.com/search", 
                query = list(q = "R programming", page = 1))

library(rvest)

# 读取网页并提取数据
webpage <- read_html("https://example.com")
data <- webpage %>%
  html_nodes("css_selector") %>%
  html_text()

library(curl)

# 直接获取内容
data <- readLines(curl("https://example.com/data.csv"))

library(jsonlite)

# 从API获取JSON数据
data <- fromJSON("https://api.example.com/data.json")

response <- GET("https://example.com",
                add_headers(
                  "User-Agent" = "Mozilla/5.0"
                ),
                set_cookies(
                  "session_id" = "12345"
                ))

response <- GET("https://example.com", timeout(10))

response <- GET("https://example.com", config(followlocation = TRUE))

response <- GET("https://example.com", config(ssl_verifypeer = FALSE))

library(future)
library(promises)
plan(multisession)

future(GET("https://example.com")) %...>%
  content("text") %...>%
  print()

library(purrr)

# 获取多页数据
pages <- 1:5
data <- map_df(pages, ~{
  GET("https://example.com/api", query = list(page = .x)) %>%
    content("parsed") %>%
    as.data.frame()
})

library(RSelenium)

# 启动浏览器
rD <- rsDriver(browser = "chrome")
remDr <- rD$client

# 导航并获取内容
remDr$navigate("https://example.com")
content <- remDr$getPageSource()[[1]]