transpordiTsoonid/R/queryAddColumnsToPostgresDbAccordingDF.R

#' Query to add columns to PostgreSQL database according df column names
#' @details Veergude lisamine Postgresql andmebaasi etteantud df veergude nimede alusel.
#' Andmebaasile lisatakse df veeru nimedega kokkulangevad andmebaasi veerud. Enne oleks
#' vajalik kustutada samanimelised veerud \code{\link{df2PostgresReplaceFieldsArray}}.
#' @param tbl The database table name.
#' @param df The DataFrame name.
#' @return query string.
#' @seealso \code{\link{queryDropColumnsFromPostgresDbAccordingDF}},
#' \code{\link{queryAddColumnsToPostgresDbAccordingDF}},
#' \code{\link{queryWithoutGeom}}
#' @examples \dontrun{
#' # Connect with database
#' tblName = "transport_tsoonid_tallinn"
#' q <- queryAddColumnsToPostgresDbAccordingDF(df = tsoonAsumLosa, tbl = tblName)
#' con <- myPostgresConnect(host = conf$host, port = conf$port, user = conf$user,
#'         password = conf$password, dbname = conf$dbname, type = "RPostgreSQL")
#' res <- DBI::dbSendQuery(conn = con, statement = q)
#' DBI::dbClearResult(res)
#' DBI::dbDisconnect(con)
#'
#' }
#'
#' @export
#'

queryAddColumnsToPostgresDbAccordingDF <- function(df, tbl) {
  colnames(df) <- transpordiTsoonid::dfNamesToLower(df = df)
  # Lisame andmebaasi veerud, mida tahame DataFrame'st kopeerida.
  res <- sapply(1:ncol(df), function(x) {
    paste0("ADD COLUMN ", names(df)[x], " ", transpordiTsoonid::df2PostgresReplaceFieldsArray[typeof(df[,x])], "")
  })
  res <- paste(res, collapse = ", ")
  res <- paste0("ALTER TABLE ", tbl , " ", res, "")
  res
}