R/psql_add_carf_pkey.R

In jjesusfilho/carf: Baixa e organiza dados do CARF

#' Adiciona chave primaria
#'
#' @param con conexao
#' @param tbl tabela
#'
#' @return NULL
#' @export
#'
#' @examples
#' \dontrun{
#' psql_add_carf_pkey(con,"julgados")
#' }
psql_add_carf_pkey <- function(con, tbl) {
  id <- paste(tbl, "id", sep = "_")
  key <- paste(tbl, "pkey", sep = "_")
  query <- glue::glue_sql("ALTER TABLE {`tbl`} ADD COLUMN {`id`} SERIAL", .con = con)

  res <- DBI::dbSendQuery(con, query)
  DBI::dbClearResult(res)

  query <- glue::glue_sql("AlTER TABLE {`tbl`} ADD CONSTRAINT {`key`} PRIMARY KEY ({`id`})", .con = con)

  res <- DBI::dbSendQuery(con, query)


  DBI::dbClearResult(res)
}