Update app.R

app.R

@@ -29,6 +29,18 @@ suppressPackageStartupMessages({
   library(shinyWidgets)
 })
 
+# Lock reticulate to the prebuilt Conda env (works even on HF Spaces)
+try({
+  conda_bin <- Sys.getenv("CONDA_EXE", Sys.which("conda"))
+  if (nzchar(conda_bin) && file.exists(conda_bin)) {
+    reticulate::use_condaenv("LinkOrgs_env", conda = conda_bin, required = TRUE)
+  } else if (nzchar(Sys.getenv("RETICULATE_PYTHON"))) {
+    reticulate::use_python(Sys.getenv("RETICULATE_PYTHON"), required = TRUE)
+  }
+  cat("[reticulate] python:", reticulate::py_config()$python, "\n")
+}, silent = TRUE)
+
+
 # Optional tooltips (if bsplus is available)
 has_bsplus <- requireNamespace("bsplus", quietly = TRUE)
 if (has_bsplus) {
@@ -241,43 +253,6 @@ server <- function(input, output, session) {
     updateTextAreaInput(session, "text_names", value = "Google\nAlphabet Inc.\nMicrosoft\nMeta Platforms\nOpenAI")
   })
   
-  # Backend setup ---------------------------------------------------------------
-  safe_build_backend <- function(conda_arg) {
-    if (!requireNamespace("LinkOrgs", quietly = TRUE)) {
-      notify("Package 'LinkOrgs' not installed. Please install it via devtools::install_github('cjerzak/LinkOrgs-software/LinkOrgs').", "error", 10)
-      cat("[LinkOrgs missing] Install with devtools::install_github('cjerzak/LinkOrgs-software/LinkOrgs')\n")
-      return(invisible(FALSE))
-    }
-    # Try silent backend initialization
-    ok <- TRUE
-    try({
-      capture.output({
-        LinkOrgs::BuildBackend(conda = ifelse(isTRUE(nzchar(conda_arg)), conda_arg, "auto"))
-      }, file = NULL)
-    }, silent = TRUE) -> res
-    if (inherits(res, "try-error")) ok <- FALSE
-    if (ok) {
-      backend_ready(TRUE)
-      notify("Backend initialized—requires internet for model download.", "message", 6)
-    } else {
-      backend_ready(FALSE)
-      notify("Backend setup failed—check internet or conda path. You can retry.", "error", 10)
-    }
-    invisible(ok)
-  }
-  
-  # Attempt at startup if enabled
-  observeEvent(TRUE, {
-    if (isTRUE(input$run_backend_on_start)) {
-      safe_build_backend(input$conda_path)
-    }
-  }, once = TRUE)
-  
-  # Retry backend manually
-  observeEvent(input$retry_backend, {
-    safe_build_backend(input$conda_path)
-  })
-  
   # Reactive: parse CSV or text input ------------------------------------------
   raw_input <- reactive({
     mode <- input$input_mode
@@ -393,10 +368,6 @@ server <- function(input, output, session) {
       validate(need(nrow(df) > 0, "Please provide at least one valid name."))
       
       incProgress(0.20, detail = "Initializing model...")
-      # Ensure backend is available (attempt if not already)
-      if (!backend_ready()) {
-        safe_build_backend(input$conda_path)
-      }
       
       incProgress(0.50, detail = "Calling LinkOrgs (ML embeddings)...")
       if (!requireNamespace("LinkOrgs", quietly = TRUE)) {