Как я могу записать блестящие входные данные ползунка в базу данных (Mysql)?

Question

Привет, как мне записать ввод от пользователя (ползунки и т. Д.) В базу данных MySQL.Ниже приведен мой код, в основном я хочу, чтобы всякий раз, когда пользователь изменял свои входные данные, он создавал новую строку в базе данных, тогда другое приложение могло использовать последние пользовательские входные данные для создания другого вычисления в отдельном приложении.

Будет много блестящих приложений, так как будет много пользователей, я думал, что база данных будет хорошей (кто-то рекомендовал это), и так как у всех пользователей есть разные сессии, это должен быть лучший способ получить это.Это неправильный способ думать об этом?

library(shiny)
library(RMariaDB)
source("C:/Users/User/Desktop/xx")
source("C:/Users/User/Desktop/xx")
con <- dbConnect(RMariaDB::MariaDB(), user="placeholder", password="placeholder", 
dbname='xxxxx', host='localhost')
dbListTables(con, xxxxx)

ui <- 
fluidPage(
sidebarLayout(
  sidebarPanel(sliderInput("x1", "x1t", min = 0, max = 100, value = 
25), 
               sliderInput("y1", "y1t", min = 0, max = 100000, value = 15000),
               numericInput("z1", " z1t", min = 0, max = 100,
                            value = 68), selectInput("hi", "hit", 
                                                     list("Yes", "No"), selected = "Yes", multiple = FALSE,selectize = TRUE, width = NULL, size = NULL), 
               sliderInput("AMC", "AMCt:", min = 0, max = 100, value = 10, ),
               sliderInput("AGAG", "AGAGt", min = 0, max = 100, value = 10, post = "%"),
               sliderInput("EC5", "EC5t:", min = 0, max = 100, value = 12, post = "%"),
               sliderInput("EC6", "EC6t:", min = 0, max = 100, value = 11, post = "%")),
  mainPanel("main panel")
  )
)



server <- function(input, output){
slidervalues <- reactive(data.frame(x = c(input$x1), y = 
c(input$y1), 
         z = c(input$z1), a = 
c(input$hi), AMCd = c(input$AMC),AGAG5 = c(input$AGAG), 
         EEE = c(input$EC5), 
EER = c(input$EC6)))
observeEvent({dbWriteTable(con, "tbl_forecast", slidervalues(), append = 
TRUE)})
}
shinyApp(ui = ui, server = server)