R/is_micromamba_available.R

In condathis: Run Any CLI Tool on a 'Conda' Environment

#' Check if Micromamba is Available for OS and CPU architecture
#' @param sys_arch Default: NULL.
#' @keywords internal
#' @noRd
is_micromamba_available_for_arch <- function(sys_arch = NULL) {
  if (is.null(sys_arch)) {
    sys_arch <- get_sys_arch()
  }
  if (sys_arch == "Linux-x86_64") {
    sys_arch_str <- "linux-64"
  } else if (sys_arch == "Darwin-x86_64" | sys_arch == "MacOSX-x86_64") {
    sys_arch_str <- "osx-64"
  } else if (sys_arch == "Windows-x86_64" | sys_arch == "Windows-x86-64") {
    sys_arch_str <- "win-64"
  } else if (sys_arch == "Darwin-arm64" | sys_arch == "MacOSX-arm64") {
    sys_arch_str <- "osx-arm64"
  } else if (sys_arch == "Linux-aarch64") {
    sys_arch_str <- "linux-aarch64"
  } else if (sys_arch == "Linux-ppc64le") {
    sys_arch_str <- "linux-ppc64le"
  } else {
    cli::cli_abort(
      message = c(
        `x` = "{.pkg micromamba} is not available for {.field {sys_arch}} CPU architecture."
      ),
      class = "condathis_umamba_not_available_for_arch"
    )
  }
  return(sys_arch_str)
}