simplify install_keras(), fix arm mac install

Author: t-kalinowski

R/install.R

@@ -24,22 +24,12 @@ install_keras <- function(method = c("auto", "virtualenv", "conda"),
                           version = "default",
                           tensorflow = version,
                           extra_packages = NULL,
-                          ...,
-                          # envname = "r-keras",
-                          # new_env = identical(envname, "r-keras"),
-                          pip_ignore_installed = TRUE) {
+                          ...
+                          # # envname = "r-keras",
+                          # # new_env = identical(envname, "r-keras")
+                          ) {
   method <- match.arg(method)
 
-  if(is_mac_arm64()) {
-    return(tensorflow::install_tensorflow(
-      method = method,
-      conda = conda,
-      version = version,
-      extra_packages = c(default_extra_packages(),
-                         extra_packages),
-      ...))
-  }
-
   pkgs <- default_extra_packages(tensorflow)
   if(!is.null(extra_packages)) # user supplied package version constraints take precedence
     pkgs[gsub("[=<>~]{1,2}[0-9.]+$", "", extra_packages)] <- extra_packages
@@ -57,7 +47,6 @@ install_keras <- function(method = c("auto", "virtualenv", "conda"),
     extra_packages = pkgs,
     # envname = envname,
     # new_env = new_env,
-    pip_ignore_installed = pip_ignore_installed,
     ...
   )
 }