bpcells updated install

local dev defaults
C3BI-pasteur-fr · Jun 28, 2024 · cf9ee31 · cf9ee31
1 parent e86cc91
commit cf9ee31
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -64,7 +64,7 @@ Remotes:
     nghiavtr/BPSC,
     statOmics/zingeR,
     cysouw/qlcMatrix,
-    bnprks/BPCells,
+    bnprks/BPCells/r,
     saezlab/liana
 Suggests:
     tidyverse,

diff --git a/inst/app/runDevApp.R b/inst/app/runDevApp.R
@@ -108,7 +108,7 @@ assign("defaultValues", defaultValues, envir = .schnappsEnv)
 
 options(shinyjqui.debug = TRUE)
 options(shinyjquiui.debug = TRUE)
-
+library(shiny)
 app <- shinyApp(ui = scShinyUI, server = scShinyServer, enableBookmarking = "server")
 options(shiny.reactlog=TRUE)
 

diff --git a/inst/app/server.R b/inst/app/server.R
@@ -50,8 +50,8 @@ if (exists("devscShinyApp")) {
     if (dir.exists(paths = normalizePath("~/Rstudio/UTechSCB-SCHNAPPs/inst/app/"))){
       packagePath <- normalizePath("~/Rstudio/UTechSCB-SCHNAPPs/inst/app/")
     } else {
-      if (dir.exists(paths = normalizePath("~/Rstudio/Schnapps/inst/app/"))){
-        packagePath <- normalizePath("~/Rstudio/Schnapps/inst/app/")
+      if (dir.exists(paths = normalizePath("~/Rstudio/schnapps/inst/app/"))){
+        packagePath <- normalizePath("~/Rstudio/schnapps/inst/app/")
       } else {
         if (dir.exists(paths = normalizePath("~/rstudio/schnappsGit/inst/app/"))){
           packagePath <- normalizePath("~/rstudio/schnappsGit/inst/app/")
@@ -180,8 +180,8 @@ scShinyServer <- function(input, output, session) {
       if (dir.exists(paths = normalizePath("~/Rstudio/UTechSCB-SCHNAPPs/inst/app/"))){
         packagePath <- normalizePath("~/Rstudio/UTechSCB-SCHNAPPs/inst/app/")
       } else {
-        if (dir.exists(paths = normalizePath("~/Rstudio/Schnapps/inst/app/"))){
-          packagePath <- normalizePath("~/Rstudio/Schnapps/inst/app/")
+        if (dir.exists(paths = normalizePath("~/Rstudio/schnapps/inst/app/"))){
+          packagePath <- normalizePath("~/Rstudio/schnapps/inst/app/")
         } else {
           if (dir.exists(paths = normalizePath("~/rstudio/schnappsGit/inst/app/"))){
             packagePath <- normalizePath("~/rstudio/schnappsGit/inst/app/")