有人知道如何在R中连接localhost吗？

library(DBI)
library(RMySQL)

# 创建数据库连接
con <- dbConnect(RMySQL::MySQL(), 
                dbname = "your_database_name", 
                host = "localhost", 
                port = 3306, 
                user = "your_username", 
                password = "your_password")

# 执行查询
result <- dbGetQuery(con, "SELECT * FROM your_table")

# 关闭连接
dbDisconnect(con)

library(httr)

# 发送GET请求到本地服务器
response <- GET("http://localhost:port/your_endpoint")

# 获取响应内容
content <- content(response, "text")

library(socket)

# 创建socket连接
con <- socketConnection(host = "localhost", port = your_port)

# 发送数据
writeLines("Hello, server!", con)

# 接收数据
response <- readLines(con)

# 关闭连接
close(con)