R/zzz.R

In Sorenson-Impact/sorensonimpact: Sorenson Impact Internal R Package

.onLoad <- function(...) {
  try(check_si_up_to_date())

  if(get_os() == "osx" & !fs::dir_exists(fs::path_expand("~/Google Drive/SI"))) {
    cli::cli_alert_danger("Warning: The Google Drive File Stream path is not configured correctly on your system. Run `si_google_drive_path_fix()` to correct this.")
  }
  }

check_si_up_to_date <- function() {
  rem <- structure(remotes:::package2remote("sorensonimpact"), class = "github_remote")
  if(is.na(rem[["sha"]])) return()
  rem <- remotes:::remote_sha(rem)

  loc <- remotes:::local_sha("sorensonimpact")

  if(loc != rem) {
    cli::cli_alert_info(cli::bg_red(cli::col_white(cli::style_bold("A newer version of \`sorensonimpact\` is available.  Run \`si_update()\` to update."))))
  }

}