Commit fa70abe7 authored by svolant's avatar svolant
Browse files

bug fix one column

parent 00c5461b
......@@ -119,9 +119,15 @@ shinyServer(function(input, output,session) {
if(input$TypeTaxo=="Table")
{
data = read.csv(inFile$datapath,sep="\t",header=TRUE)
## Rownames
if(!TRUE%in%duplicated(data[,1])) rownames(data)=data[,1];data=data[,-1]
if(!TRUE%in%duplicated(data[,1])){
DataNames=data[,1]
colNames=colnames(data)[-1]
data=as.matrix(data[,-1])
rownames(data)=DataNames
colnames(data) = colNames
}
}
if(input$TypeTaxo=="RDP")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment