R/set_database.R

In GitAI: Extracts Knowledge from 'Git' Repositories

#' Setting database in `GitAI` object.
#' 
#' @inheritParams process_repos
#' @param provider A string. Name of database provider.
#' @param ... Additional arguments to pass to database provider constructor.
#' 
#' @export
set_database <- function(
  gitai,
  provider = "Pinecone",
  ...
) {

  provider_class <- get(provider)

  args <- list(...)

  if (is.null(args$namespace)) {
    args$namespace <- gitai$project_id
  }

  db <- do.call(
    what = provider_class$new, 
    args = args
  )
  
  gitai$db <- db
  invisible(gitai)
}