Merge pull request #3157 from vgteam/roc-plot

adamnovak · web-flow · commit 58971fbd852c · 2021-01-19T11:49:45.000-08:00
Make roc plotting script work
diff --git a/scripts/plot-roc.R b/scripts/plot-roc.R
@@ -45,7 +45,7 @@ if (length(commandArgs(TRUE)) > 3) {
 }
 
 # Determine the order of aligners, based on sorting in a dash-separated tag aware manner
-aligner.names <- levels(dat$aligner)
+aligner.names <- levels(factor(dat$aligner))
 name.lists <- aligner.names %>% (function(name) map(name,  (function(x) as.list(unlist(strsplit(x, "-"))))))
 # Transpose name fragments into a list of vectors for each position, with NAs when tag lists end early
 max.parts <- max(sapply(name.lists, length))

Original file line number	Diff line number	Diff line change
`@@ -45,7 +45,7 @@ if (length(commandArgs(TRUE)) > 3) {`
`45`	`45`	`}`
`46`	`46`
`47`	`47`	`# Determine the order of aligners, based on sorting in a dash-separated tag aware manner`
`48`		`-aligner.names <- levels(dat$aligner)`
	`48`	`+aligner.names <- levels(factor(dat$aligner))`
`49`	`49`	`name.lists <- aligner.names %>% (function(name) map(name, (function(x) as.list(unlist(strsplit(x, "-"))))))`
`50`	`50`	`# Transpose name fragments into a list of vectors for each position, with NAs when tag lists end early`
`51`	`51`	`max.parts <- max(sapply(name.lists, length))`