Update server.R

srinew · Feb 5, 2020 · 9846201 · 9846201
1 parent 26a46f3
commit 9846201
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/server.R b/server.R
@@ -25,10 +25,7 @@ server <- function(input, output) {
     tlda.ct[nrow(tlda.ct)+1,] <- NA
     rownames(tlda.ct)[[nrow(tlda.ct)]] <- "Int.Control"
 
-    ref.genes <- c("ACTB", "GAPDH", "TUBB")
-    ref1 <- "ACTB"
-    ref2 <- "GAPDH"
-    ref3 <- "TUBB"
+    ref.genes <- c(input$header)
 
     # Calculate the internal controls mean for each sample
     for(i in 1:ncol(tlda.ct)){