Merge pull request #153 from taxonomicallyinformedannotation/dev

Come back to old working setwd version
taxonomicallyinformedannotation · Jul 5, 2024 · 4bbc2c8 · 4bbc2c8
2 parents 7d516cd + 91e9334
commit 4bbc2c8
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 16 deletions.
diff --git a/codemeta.json b/codemeta.json
@@ -591,7 +591,7 @@
     "SystemRequirements": null
   },
   "keywords": ["metaboliteannotation", "chemotaxonomy", "scoringsystem", "naturalproducts", "computationalmetabolomics", "taxonomicdistance", "specializedmetabolome"],
-  "fileSize": "4394.917KB",
+  "fileSize": "4381.322KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",

diff --git a/inst/app.R b/inst/app.R
@@ -2194,18 +2194,18 @@ server <- function(input, output, session) {
 }
 url <- "<http://127.0.0.1:3838>"
 log_debug("Please, open:", url, "on your favorite browser, but not Edge.")
-dir <- if (i_am_a_whale) {
-  message("I\'m inside the matrix ;(")
-  ".."
-} else {
-  cache <- fs::path_home(".tima")
-  fs::dir_create(cache)
-  message("Working in ", cache)
-  cache
-}
-withr::with_dir(new = dir, code = {
-  shinyApp(
-    ui = ui,
-    server = server
-  )
-})
+shinyApp(
+  ui = ui,
+  server = server,
+  onStart = function() {
+    if (i_am_a_whale) {
+      message("I\'m inside the matrix ;(")
+      setwd(dir = "..")
+    } else {
+      cache <- fs::path_home(".tima")
+      fs::dir_create(cache)
+      message("Working in ", cache)
+      setwd(dir = cache)
+    }
+  }
+)