From 269f3e65a90a9e654f18cdf4c8feb6e9fecf4c4a Mon Sep 17 00:00:00 2001 From: Gavin Rhys Lloyd Date: Thu, 27 Jun 2024 09:25:40 +0100 Subject: [PATCH] fix untarg data import - remove unnecessary column by name instead of index - prevent dropping of columns --- R/class_def.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/class_def.R b/R/class_def.R index bd2834a..ec7aa1d 100644 --- a/R/class_def.R +++ b/R/class_def.R @@ -804,7 +804,7 @@ setMethod(f = 'do_query', return(out) } else if (input_item$name == 'analysis_id') { df = do_query(context$name,input_item$name,input_value,'datatable') - nf=attributes(df)$number_of_factors + nf = attributes(df)$number_of_factors X=as.data.frame(t(df)) @@ -869,10 +869,10 @@ setMethod(f = 'do_query', df = do_query(context$name,input_item$name,input_value,'untarg_data') fq = do_query('study','analysis_id',input_value,'untarg_factors') - fq=fq[,-1] + fq$count=NULL - SM=as.data.frame(df[,colnames(fq)]) - df[,colnames(fq)]=NULL + SM=df[,colnames(fq),drop=FALSE] + df[,colnames(fq),drop=FALSE]=NULL df=as.data.frame(t(df)) VM=data.frame(feature_id=rownames(df))