R将tbl对象更新为redshift

library(DBI)
library(RPostgreSQL)

# 连接到Redshift数据库
con <- dbConnect(RPostgreSQL::PostgreSQL(),
                 host = "redshift_host",
                 port = redshift_port,
                 dbname = "redshift_dbname",
                 user = "redshift_username",
                 password = "redshift_password")

# 创建一个tbl对象（数据框）
data <- tibble(
  id = c(1, 2, 3),
  name = c("John", "Jane", "Alice"),
  age = c(25, 30, 35)
)

# 将tbl对象中的数据更新到Redshift数据库中的表
dbWriteTable(con, "table_name", data, overwrite = TRUE)

# 关闭数据库连接
dbDisconnect(con)