R/zzz.R

In fhamborg/sentiment4news: Target-dependent Sentiment Classification

#pack <- new.env(parent = emptyenv())
NewsSentiment <- NULL

.onLoad <- function(libname, pkgname) {

  packageStartupMessage("Welcome to NewsSentiment.
                        The first installation might take a couple of minutes.
                        But further uses of the package will be much faster.")

  #if(Sys.info()["sysname"]== "Darwin"){
  #  system("/opt/homebrew/bin/brew install openblas")
  # system('OPENBLAS="$(brew --prefix openblas)" pip install numpy scipy')
  #}
  Sys.unsetenv("RETICULATE_PYTHON")
  version <- "3.7.9"
  reticulate::install_python(version = version)
  reticulate::virtualenv_create("newssentiment-environment", version = version, packages = "NewsSentiment")
  reticulate::use_virtualenv("newssentiment-environment")
  NewsSentiment_p <<- reticulate::import("NewsSentiment", delay_load = TRUE)
  tsc <<- NewsSentiment_p$TargetSentimentClassifier()

}