feature_coordinate add column

R/genome_features_overlaps.R

@@ -139,9 +139,9 @@ setMethod("genome_features_overlaps",definition=function(peaks,features,figs_pat
             feature_type=y,
             query_DT[S4Vectors::queryHits(hits)],
             subject_DT[S4Vectors::subjectHits(hits)],
-            feature_coordinates,
             peak_coverage,
-            feature_coverage
+            feature_coverage,
+            feature_coordinates
           )
 
           ###################
@@ -185,7 +185,7 @@ setMethod("genome_features_overlaps",definition=function(peaks,features,figs_pat
       # merge by tag
       annot<-merge(
         base::unique(query_DT),
-        annot[,.(tag,feature_type,feature,tx_name,peak_coverage,feature_coverage)],
+        annot[,.(tag,feature_type,feature,tx_name,peak_coverage,feature_coverage,feature_coordinates)],
       by="tag",sort=F,all=T)
 
       ###################