bug dataset 1 & sampleAnnot loading

server_function/SERVER_Data_Upload.R

@@ -9,7 +9,7 @@
 
 # Data Upload
 
-sampleAnnot <- reactive({
+sampleAnnot <- eventReactive({
   if (input$LoadExample == "Example1"){
     sampleMetadata<-"data/data_breast/clinical.csv" #sample sheet path
     sampleAnnot <- read.csv(sampleMetadata, sep = ",", header = TRUE, row.names = 1)
@@ -88,7 +88,7 @@ sampleAnnot <- reactive({
   sampleAnnot <- sampleAnnot[order(rownames(sampleAnnot)),]
   
   sampleAnnot
-})
+}, ignoreNULL = FALSE)
 
 
 sampleName <- reactive({
@@ -266,7 +266,7 @@ exprDat <- eventReactive(input$goPrevalence, {
   exprDat <- exprDat[order(rownames(exprDat)),]
   
   exprDat
-})
+}, ignoreNULL = FALSE)
 
 
 exprDat_present <- reactive({