我应该如何为R上的SQL循环INSERT INTO语句？

# 连接到MySQL数据库
library(RMySQL)
con <- dbConnect(MySQL(), dbname = "your_database", host = "your_host", 
                 port = 3306, user = "your_username", password = "your_password")

# 创建INSERT INTO语句
table_name <- "your_table"
columns <- c("column1", "column2", "column3")
insert_query <- paste0("INSERT INTO ", table_name, " (", paste(columns, collapse = ", "), ") VALUES ")

# 准备数据
data <- data.frame(column1 = c("value1", "value2", "value3"),
                   column2 = c(1, 2, 3),
                   column3 = c(TRUE, FALSE, TRUE))

# 执行INSERT INTO语句
for (i in 1:nrow(data)) {
  values <- paste0("('", data[i, ], "')")
  query <- paste0(insert_query, values)
  dbSendQuery(con, query)
}

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