R/hasNetrc.R

In nprcgenekeepr: Genetic Tools for Colony Management

## Copyright(c) 2017-2026 R. Mark Sharp
## This file is part of nprcgenekeepr

#' Determine whether an Rlabkey-usable netrc file is present
#'
#' Checks the \code{NETRC} environment variable first, then the home directory
#' (\code{.netrc} on non-Windows, \code{_netrc} on Windows).
#'
#' @param homeDir home directory to search for a netrc file.
#' @param sysname operating-system name as from
#' \code{Sys.info()[["sysname"]]}.
#' @return Logical; \code{TRUE} when a netrc file is found.
#' @importFrom stringi stri_detect_fixed
#' @noRd
hasNetrc <- function(homeDir = Sys.getenv("HOME"),
                     sysname = Sys.info()[["sysname"]]) {
  netrcEnv <- Sys.getenv("NETRC", unset = "")
  if (nzchar(netrcEnv) && file.exists(netrcEnv)) {
    return(TRUE)
  }
  netrcName <- if (stri_detect_fixed(toupper(sysname), "WIND")) {
    "_netrc"
  } else {
    ".netrc"
  }
  file.exists(file.path(homeDir, netrcName))
}