How to save multiple rows in mySQL server from R SHINY app

[Dau_Van_Quan]

How to save multiple rows of data in MySQL server from R Shiny? The following codes are only applicable for a single row:

saveData <- function(data ) {
  db <- dbConnect(MySQL(), dbname = "my_servername", host = options()$mysql$host, 
                  port = options()$mysql$port, user = options()$mysql$user, 
                  password = options()$mysql$password)
  query <- sprintf(
    "INSERT INTO %s (%s) VALUES ('%s')",
    "my_Table", 
    paste(names(data), collapse = ", "),
    paste(data, collapse = "', '")
  )
  dbGetQuery(db, query)
  dbDisconnect(db)
}

Looking for a help from expert. Thanks

[andresrcs]

Use the dbAppendTable() function

https://rdrr.io/cran/DBI/man/dbAppendTable.html

[Dau_Van_Quan]

Thank you. I found the solution now. I used the following command:

 dbWriteTable(db, "my_table", data, overwrite = TRUE, row.names=F)