No more setwd

taxonomicallyinformedannotation · Jul 3, 2024 · eb46e4e · eb46e4e
1 parent d1d2cfb
commit eb46e4e
Show file tree

Hide file tree

Showing 4 changed files with 699 additions and 675 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -50,6 +50,7 @@ Imports:
  tidyfst (>= 1.7.9),
  utils,
  visNetwork (>= 2.1.2),
+ withr (>= 3.0.0),
  yaml (>= 2.3.8)
 Suggests: 
  BiocManager,

diff --git a/codemeta.json b/codemeta.json
@@ -563,6 +563,19 @@
  "sameAs": "https://CRAN.R-project.org/package=visNetwork"
  },
  "37": {
+ "@type": "SoftwareApplication",
+ "identifier": "withr",
+ "name": "withr",
+ "version": ">= 3.0.0",
+ "provider": {
+ "@id": "https://cran.r-project.org",
+ "@type": "Organization",
+ "name": "Comprehensive R Archive Network (CRAN)",
+ "url": "https://cran.r-project.org"
+ },
+ "sameAs": "https://CRAN.R-project.org/package=withr"
+ },
+ "38": {
  "@type": "SoftwareApplication",
  "identifier": "yaml",
  "name": "yaml",
@@ -578,7 +591,7 @@
  "SystemRequirements": null
  },
  "keywords": ["metaboliteannotation", "chemotaxonomy", "scoringsystem", "naturalproducts", "computationalmetabolomics", "taxonomicdistance", "specializedmetabolome"],
- "fileSize": "4376.027KB",
+ "fileSize": "4377.449KB",
  "citation": [
  {
  "@type": "ScholarlyArticle",

diff --git a/inst/app.R b/inst/app.R
@@ -2070,18 +2070,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.")
-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)
- }
- }
-)
+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
+ )
+})