将MySQL与Shiny连接

我想将MySQL与Shining（R）连接起来。从最近几天开始，我一直在尝试运行代码，但它不起作用。以下是我的代码：

 library(shiny)
 library(leaflet)
 library(DBI)
 library(RMySQL)

 saveData <- function(firstname, lastname) {

   db <- dbConnect(MySQL(), dbname = "example", host = "localhost", 
              port = 3306, user = "root", 
              password = "xxxx")

   query <- sprintf(
    "INSERT INTO %s (%s) VALUES ('%s, %s')",
     name, 
     paste(names(firstname), collapse = ", "),
     paste(data, collapse = "', '"),
     paste(names(lastname), collapse = ", "),
     paste(data, collapse = "', '")
   )
 dbGetQuery(db, query)
 dbDisconnect(db)
}

ui <- fluidPage(
  textInput("Firstname", "Enter your first name:", ""),
  textInput("Surname", "Enter your last name:", ""),
  actionButton("UpdateView", icon("refresh"))
)

 server <- function(input, output, session) {
   isolate(observeEvent(input$UpdateView, saveData(input$Firstname, 
   input$Surname)))
 }

shinyApp(ui, server)

库（闪亮）
图书馆（单张）
图书馆（DBI）
图书馆（RMySQL）
保存数据
Stack trace (innermost first):
   72: .local
   71: dbConnect
   70: dbConnect
   69: saveData [#3]
   68: observeEventHandler [#8]
    4: <Anonymous>
    3: do.call
    2: print.shiny.appobj
    1: <Promise>
ERROR: [on_request_read] connection reset by peer