Merge pull request #271 from davidycliao/0.1.7

Update zzz.R

Author: davidycliao

R/zzz.R

@@ -19,173 +19,73 @@
 #' @importFrom reticulate py_module_available
 #' @importFrom reticulate py_install
 #' @keywords internal
-# .onAttach <- function(...) {
-#   # Determine Python command
-#   python_cmd <- if (Sys.info()["sysname"] == "Windows") "python" else "python3"
-#   python_path <- Sys.which(python_cmd)
-#
-#   # Check Python path
-#   if (python_path == "") {
-#     packageStartupMessage(paste("Cannot locate the", python_cmd, "executable. Ensure it's installed and in your system's PATH. flaiR functionality requiring Python will not be available."))
-#     return(invisible(NULL))  # Exit .onAttach without stopping package loading
-#   }
-#
-#   # Check Python versio Try to get Python version
-#   tryCatch({
-#     python_version <- system(paste(python_path, "--version"), intern = TRUE)
-#     if (!grepl("Python 3", python_version)) {
-#       packageStartupMessage("Python 3 is required, but a different version was found. Please install Python 3. flaiR functionality requiring Python will not be available.")
-#       return(invisible(NULL))  # Exit .onAttach without stopping package loading
-#     }
-#   }, error = function(e) {
-#     packageStartupMessage(paste("Failed to get Python version with path:", python_path, "Error:", e$message, ". flaiR functionality requiring Python will not be available."))
-#     return(invisible(NULL))   # Exit .onAttach without stopping package loading
-#   })
-#
-#   # Check if PyTorch is installed
-#   check_torch_version <- function() {
-#     # torch_version_command <- paste(python_path, "-c 'import torch; print(torch.__version__)'")
-#     torch_version_command <- paste(python_path, "-c \"import torch; print(torch.__version__)\"")
-#     result <- system(torch_version_command, intern = TRUE)
-#     if (length(result) == 0 || result[1] == "ERROR" || is.na(result[1])) {
-#       return(list(paste("PyTorch", paste0("\033[31m", "\u2717", "\033[39m"), sep = " "), FALSE))
-#     }
-#     # Return flair version
-#     return(list(paste("PyTorch", paste0("\033[32m", "\u2713", "\033[39m") ,result[1], sep = " "), TRUE, result[1]))
-#   }
-#
-#   # Check if flair is installed
-#   check_flair_version <- function() {
-#     # flair_version_command <- paste(python_path, "-c 'import flair; print(flair.__version__)'")
-#     flair_version_command <- paste(python_path, "-c \"import flair; print(flair.__version__)\"")
-#     result <- system(flair_version_command, intern = TRUE)
-#     if (length(result) == 0 || result[1] == "ERROR" || is.na(result[1])) {
-#       return(list(paste("flair", paste0("\033[31m", "\u2717", "\033[39m"), sep = " "), FALSE))
-#     }
-#     # Return flair version
-#     return(list(paste("flair", paste0("\033[32m", "\u2713", "\033[39m"),result[1], sep = " "), TRUE, result[1]))
-#   }
-#
-#   flair_version <- check_flair_version()
-#   torch_version <- check_torch_version()
-#
-#   if (isFALSE(flair_version[[2]])) {
-#     packageStartupMessage(sprintf(" Flair %-50s", paste0("is installing from Python")))
-#
-#     commands <- c(
-#       paste(python_path, "-m pip install --upgrade pip"),
-#       paste(python_path, "-m pip install torch"),
-#       paste(python_path, "-m pip install flair"),
-#       paste(python_path, "-m pip install scipy==1.12.0")
-#     )
-#     command_statuses <- vapply(commands, system, FUN.VALUE = integer(1))
-#
-#     flair_check_again <- check_flair_version()
-#     if (isFALSE(flair_check_again[[2]])) {
-#       packageStartupMessage("Failed to install Flair. {flaiR} requires Flair NLP. Please ensure Flair NLP is installed in Python manually.")
-#     }
-#   } else {
-#     packageStartupMessage(sprintf("\033[1m\033[34mflaiR\033[39m\033[22m: \033[1m\033[33mAn R Wrapper for Accessing Flair NLP\033[39m\033[22m %-5s", paste("\033[1m\033[33m", flair_version[[3]], "\033[39m\033[22m", sep = "")))
-#   }
-# }
-
 .onAttach <- function(...) {
-  # Clear any existing RETICULATE_PYTHON setting first
-  Sys.unsetenv("RETICULATE_PYTHON")
-
   # Determine Python command
   python_cmd <- if (Sys.info()["sysname"] == "Windows") "python" else "python3"
   python_path <- Sys.which(python_cmd)
 
-  # If python_path is empty, try to find Python from common locations
-  if (python_path == "") {
-    common_paths <- c(
-      "/usr/bin/python3",
-      "/usr/local/bin/python3",
-      Sys.getenv("CONDA_PYTHON_EXE"),  # Check for conda environment
-      file.path(Sys.getenv("USERPROFILE"), "Anaconda3", "python.exe"),  # Windows Anaconda
-      file.path(Sys.getenv("HOME"), "anaconda3", "bin", "python")  # Unix Anaconda
-    )
-
-    for (path in common_paths) {
-      if (file.exists(path)) {
-        python_path <- path
-        break
-      }
-    }
-  }
-
   # Check Python path
   if (python_path == "") {
     packageStartupMessage(paste("Cannot locate the", python_cmd, "executable. Ensure it's installed and in your system's PATH. flaiR functionality requiring Python will not be available."))
-    return(invisible(NULL))
+    return(invisible(NULL))  # Exit .onAttach without stopping package loading
   }
 
-  # Set RETICULATE_PYTHON to the found Python path
-  Sys.setenv(RETICULATE_PYTHON = python_path)
-
-  # Try to initialize reticulate with the found Python
-  tryCatch({
-    if (!requireNamespace("reticulate", quietly = TRUE)) {
-      install.packages("reticulate")
-    }
-    reticulate::use_python(python_path, required = TRUE)
-  }, error = function(e) {
-    packageStartupMessage(paste("Failed to initialize Python environment:", e$message))
-    return(invisible(NULL))
-  })
-
-  # Check Python version
+  # Check Python versio Try to get Python version
   tryCatch({
     python_version <- system(paste(python_path, "--version"), intern = TRUE)
     if (!grepl("Python 3", python_version)) {
       packageStartupMessage("Python 3 is required, but a different version was found. Please install Python 3. flaiR functionality requiring Python will not be available.")
-      return(invisible(NULL))
+      return(invisible(NULL))  # Exit .onAttach without stopping package loading
     }
   }, error = function(e) {
     packageStartupMessage(paste("Failed to get Python version with path:", python_path, "Error:", e$message, ". flaiR functionality requiring Python will not be available."))
-    return(invisible(NULL))
+    return(invisible(NULL))   # Exit .onAttach without stopping package loading
   })
 
-  # Version check functions
+  # Check if PyTorch is installed
   check_torch_version <- function() {
+    # torch_version_command <- paste(python_path, "-c 'import torch; print(torch.__version__)'")
     torch_version_command <- paste(python_path, "-c \"import torch; print(torch.__version__)\"")
     result <- system(torch_version_command, intern = TRUE)
     if (length(result) == 0 || result[1] == "ERROR" || is.na(result[1])) {
       return(list(paste("PyTorch", paste0("\033[31m", "\u2717", "\033[39m"), sep = " "), FALSE))
     }
-    return(list(paste("PyTorch", paste0("\033[32m", "\u2713", "\033[39m"), result[1], sep = " "), TRUE, result[1]))
+    # Return flair version
+    return(list(paste("PyTorch", paste0("\033[32m", "\u2713", "\033[39m") ,result[1], sep = " "), TRUE, result[1]))
   }
 
+  # Check if flair is installed
   check_flair_version <- function() {
+    # flair_version_command <- paste(python_path, "-c 'import flair; print(flair.__version__)'")
     flair_version_command <- paste(python_path, "-c \"import flair; print(flair.__version__)\"")
     result <- system(flair_version_command, intern = TRUE)
     if (length(result) == 0 || result[1] == "ERROR" || is.na(result[1])) {
       return(list(paste("flair", paste0("\033[31m", "\u2717", "\033[39m"), sep = " "), FALSE))
     }
-    return(list(paste("flair", paste0("\033[32m", "\u2713", "\033[39m"), result[1], sep = " "), TRUE, result[1]))
+    # Return flair version
+    return(list(paste("flair", paste0("\033[32m", "\u2713", "\033[39m"),result[1], sep = " "), TRUE, result[1]))
   }
 
-  # Check versions and install if needed
   flair_version <- check_flair_version()
   torch_version <- check_torch_version()
 
   if (isFALSE(flair_version[[2]])) {
     packageStartupMessage(sprintf(" Flair %-50s", paste0("is installing from Python")))
+
     commands <- c(
       paste(python_path, "-m pip install --upgrade pip"),
       paste(python_path, "-m pip install torch"),
       paste(python_path, "-m pip install flair"),
       paste(python_path, "-m pip install scipy==1.12.0")
     )
     command_statuses <- vapply(commands, system, FUN.VALUE = integer(1))
+
     flair_check_again <- check_flair_version()
     if (isFALSE(flair_check_again[[2]])) {
       packageStartupMessage("Failed to install Flair. {flaiR} requires Flair NLP. Please ensure Flair NLP is installed in Python manually.")
     }
   } else {
-    packageStartupMessage(sprintf("\033[1m\033[34mflaiR\033[39m\033[22m: \033[1m\033[33mAn R Wrapper for Accessing Flair NLP\033[39m\033[22m %-5s",
-                                  paste("\033[1m\033[33m", flair_version[[3]], "\033[39m\033[22m", sep = "")))
+    packageStartupMessage(sprintf("\033[1m\033[34mflaiR\033[39m\033[22m: \033[1m\033[33mAn R Wrapper for Accessing Flair NLP\033[39m\033[22m %-5s", paste("\033[1m\033[33m", flair_version[[3]], "\033[39m\033[22m", sep = "")))
   }
 }