R/response_to_db.R

In dheimgartner/shiny-deploy: survey test app for production

# library(DBI)
# library(RPostgres)

# https://shiny.rstudio.com/articles/overview.html


#' Write response to database
#'
#' @param credentials to connect to db (preferably from config.yml)
#' @param db_table table name in postgres database
#' @param response data to write (data.frame)
#'
#' @return
#' @export
response_to_db <- function(credentials = NULL, db_table = "shiny_survey", response) {
  
  ## establish connection (pass credentials to dbConnect)
  con <- DBI::dbConnect(RPostgres::Postgres(),
                        dbname = credentials$dbname,
                        host = credentials$host,
                        user = credentials$user,
                        port = credentials$port,
                        password = credentials$password,
  )
  
  ## check if table exists
  if (!(db_table %in% DBI::dbListTables(con))) stop("Table does not exist! Consider init_table_from_df()")
  
  ## write to db
  DBI::dbAppendTable(con, db_table, response)
  
  ## stop connection
  DBI::dbDisconnect(con)
  
}