Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update zzz.R #270

Merged
merged 1 commit into from
Jan 5, 2025
Merged

Update zzz.R #270

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
130 changes: 115 additions & 15 deletions R/zzz.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,73 +19,173 @@
#' @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)) # Exit .onAttach without stopping package loading
return(invisible(NULL))
}

# Check Python versio Try to get Python version
# 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
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
return(invisible(NULL))
}
}, 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
return(invisible(NULL))
})

# Check if PyTorch is installed
# Version check functions
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]))
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]))
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 = "")))
}
}

Expand Down
Loading