如何在不手动键入R的情况下为多个列指定sqlSave()的可变类型？

# 导入所需的库
library(RODBC)

# 连接到数据库
conn <- odbcConnect("your_database")

# 创建一个数据框
data <- data.frame(
  col1 = c(1, 2, 3),
  col2 = c("A", "B", "C"),
  col3 = c(TRUE, FALSE, TRUE)
)

# 获取每个列的数据库类型
varTypes <- sapply(data, dbDataType, conn)

# 将数据框保存到数据库中
sqlSave(conn, data, tablename = "your_table", varTypes = varTypes, append = TRUE)

# 关闭数据库连接
odbcClose(conn)