R/setAPI.R

In gemini.R: Interface for 'Google Gemini' API

#' @title Set API key
#' @description Set API key as an environment variable
#' @param api_key The API key to set
#' @return No return value, called for side effects.
#' @export
#' @examples
#' \dontrun{
#' setAPI("my_api_key")
#' }
#' @seealso https://makersuite.google.com/app/apikey
#' @note Please be aware you have to agree to the terms of service of the API provider.
#' Any app that uses the API key is subject to the terms of service.
#' Also, please be aware that the API key is a sensitive information.
#' @importFrom cli cli_alert_info cli_div cli_end cli_alert
#' @keywords internal

setAPI <- function(api_key) {
  last <- substr(api_key, nchar(api_key) - 3, nchar(api_key))
  Sys.setenv(GEMINI_API_KEY = api_key)

  cli_div(theme = list(span.str = list("background-color" = "blue")))
  cli_alert_info("API key {.str ...{last}} is set.")
  cli_end()

  cli_alert("You may try {.run gemini_chat('What is CRAN?')}")
  return(NULL)
}