fix typo in left join

cying111 · cying111 · commit e0dd79349948 · 2024-10-28T17:32:00.000+08:00
diff --git a/R/bambu-extendAnnotations-utilityCombine.R b/R/bambu-extendAnnotations-utilityCombine.R
@@ -104,7 +104,7 @@ updateStartEndReadCount <- function(combinedFeatureTibble){
 
     combinedFeatureTibble <- startEndDt[combinedFeatureTibble[,.(intronStarts, intronEnds, chr, strand, maxTxScore, 
                                                                  maxTxScore.noFit, NSampleReadCount, NSampleReadProp, 
-                                                                 NSampleTxScore, rowID)], by = rowID]
+                                                                 NSampleTxScore, rowID)], on = "rowID"]
     combinedFeatureTibble[, rowID := NULL]
     return(combinedFeatureTibble)
 }

Original file line number	Diff line number	Diff line change
`@@ -104,7 +104,7 @@ updateStartEndReadCount <- function(combinedFeatureTibble){`
`104`	`104`
`105`	`105`	`combinedFeatureTibble <- startEndDt[combinedFeatureTibble[,.(intronStarts, intronEnds, chr, strand, maxTxScore,`
`106`	`106`	`maxTxScore.noFit, NSampleReadCount, NSampleReadProp,`
`107`		`- NSampleTxScore, rowID)], by = rowID]`
	`107`	`+ NSampleTxScore, rowID)], on = "rowID"]`
`108`	`108`	`combinedFeatureTibble[, rowID := NULL]`
`109`	`109`	`return(combinedFeatureTibble)`
`110`	`110`	`}`