Commit 73cdf25b authored by Amine  GHOZLANE's avatar Amine GHOZLANE

Check numeric values in biom sample_metadata

parent b4721dac
Pipeline #14361 passed with stages
in 98 minutes and 48 seconds
......@@ -538,7 +538,11 @@ GetDataFromBIOM <-function(dataBIOM)
if(!is.null(target))
{
# Convert from list to dataframe
target = as.data.frame(target)
target=as.data.frame(target)
# Check if numeric variable in the biom metadata
for(i in seq(1,dim(target)[2])){
if(TRUE%in%!is.na(as.numeric(target[,i]))) target[,i]=as.numeric(target[,i])
}
target$SampleID = rownames(target)
target = subset(target, select=c(dim(target)[2], seq(1, dim(target)[2]-1)))
}
......
Markdown is supported
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