Browse code

Bugfix on the igsva() function.

[rcastelo] authored on 27/04/2018 22:14:15
Showing5 changed files

... ...
@@ -1,5 +1,5 @@
1 1
 Package: GSVA
2
-Version: 1.27.4
2
+Version: 1.27.5
3 3
 Title: Gene Set Variation Analysis for microarray and RNA-seq data
4 4
 Authors@R: c(person("Justin", "Guinney", role=c("aut", "cre"), email="justin.guinney@sagebase.org"),
5 5
              person("Robert", "Castelo", role="aut", email="robert.castelo@upf.edu"),
6 6
new file mode 100644
... ...
@@ -0,0 +1,7 @@
1
+igsva <- function() {
2
+  appDir <- system.file("shinyApp", package="GSVA")
3
+  if (appDir == "")
4
+    stop("The GSVA Shiny app cannot be found within the package.")
5
+
6
+  runApp(appDir)
7
+}
0 8
deleted file mode 100644
... ...
@@ -1,3 +0,0 @@
1
-igsva <- function() {
2
-  runApp("GSVA/R/app")
3
-}
4 0
similarity index 100%
5 1
rename from R/app/server.R
6 2
rename to inst/shinyApp/server.R
7 3
similarity index 100%
8 4
rename from R/app/ui.R
9 5
rename to inst/shinyApp/ui.R