R/psql_adiciona_carf.R

In jjesusfilho/carf: Baixa e organiza dados do CARF

#' Cria e adiciona tabela
#'
#' @description Esta função primeiramente cria uma tabela a partir das
#'     colunas do tibble. Depois disso, adiciona um chave primária,
#'     Depois, insere as linhas da base, depois cria um índice invertido
#'     a partir da coluna julgados, chamado document_tokens baseado no
#'     algo GIN.
#'
#' @param con conexão
#' @param tbl tabela
#' @param data base a ser escrita.
#'
#' @return returns NULL if everything went well
#' @export
#'
#' @examples
#' \dontrun{
#' con <- dbx::dbxConnect()
#' psql_adiciona_carf(con, "julgados", df)
#' }
psql_adiciona_carf <- function(con = NULL, tbl = NULL, data = NULL) {
  if (is.null(con)) {
    stop("Please provide a connection")
  }

  if (is.null(tbl)) {
    stop("You must provide an existing table to insert data")
  }

  if (is.null(data)) {
    stop("You must provide the data to be inserted")
  }

  DBI::dbCreateTable(con, tbl, data)

  psql_add_carf_pkey(con, tbl)
  psql_carf_insert(con, tbl, data = data)
  psql_carf_tokenize(con, tbl)
  psql_carf_trigger(con, tbl)
}