Permalink
Browse files

Got uploadable GRN with GeneNet working locally.

  • Loading branch information...
1 parent 0450577 commit f6f059362b7019f3ea649e9e9ff6f0dfa764f401 @trestletech committed Dec 1, 2012
Showing with 23 additions and 7 deletions.
  1. +3 −0 .gitignore
  2. +6 −6 grn/server.R
  3. +1 −1 grn/ui.R
  4. +13 −0 shiny-sandbox.Rproj
View
@@ -0,0 +1,3 @@
+.Rproj.user
+.Rhistory
+.RData
View
@@ -5,13 +5,13 @@ library(igraph)
shinyServer(function(input, output) {
data <- reactive(function(){
- #df <- input$file
- #path <- df$datapath
- data <- read.csv("/home/qbrc/data.csv", row.names=1)
+ df <- input$file
+ path <- df$datapath
+ data <- read.csv(path, row.names=1)
data
})
- output$debug <- reactivePrint(function(){input$file})
+ output$debug <- reactivePrint(function(){})
output$main_plot <- reactivePlot(function() {
@@ -22,14 +22,14 @@ shinyServer(function(input, output) {
return()
}
- data <- read.csv("/home/qbrc/data.csv", row.names=1)
+ data <- data()
if (input$method == "GeneNet"){
net <- ggm.estimate.pcor(data)
net <- abs(net)
}
- rownames(net) <- rownames(data)
+ rownames(net) <- colnames(net) <- colnames(data)
net[net < input$con_weight] <- 0
View
@@ -13,7 +13,7 @@ shinyUI(bootstrapPage(
sliderInput(inputId = "con_weight",
label = "Connection threshold:",
- min = 0.0, max = 1, value = .6, step = 0.1)
+ min = 0.0, max = 1, value = .25, step = 0.05)
))
View
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

0 comments on commit f6f0593

Please sign in to comment.