bug dataset 1 & sampleAnnot loading

server_function/SERVER_Data_Upload.R

@@ -113,6 +113,7 @@ exprDat <- eventReactive(input$goPrevalence, {
       exprDat <- read.csv(expressionData, sep = ",", header = TRUE, row.names = 1)
       
     }else{
+      print(input$file1$datapath)
       validate(
         need(input$file1$datapath != "", "Please select a data set")
       )
@@ -458,7 +459,7 @@ exprDatSec_present <- reactive({
     exprDatSec_present <- exprDatSec()
   }else{
     validate(
-      need(input$file1$datapath != "", "Please select a data set")
+      need(input$file4$datapath != "", "Please select a data set")
     )
     exprDatSec_present <- exprDatSec()     
   }