R/saveContactForm.R

In aberWARU/waruDB: Database backend functions for waruPortal

#' Save Contact Form
#'
#' Save data captured from a form entry reactive into the *ParticipantInterest* table
#'
#' @param db_connection a `dbPool` or `RMariaDB` database connection
#' @param formData the reactive output from `formData`
#' @export

saveContactForm <- function(formData, db_connection) {

  query <- sprintf(
    "INSERT INTO %s (%s) VALUES ('%s')",
    'ParticipantInterest',
    paste(names(formData), collapse = ", "),
    paste(formData, collapse = "', '")
  )

  pool::dbExecute(db_connection, query)
  return(invisible(NULL))
}