nchar to width fix

PNNL-Comp-Mass-Spec · Apr 24, 2024 · 2a4f0fc · 2a4f0fc
1 parent f88228b
commit 2a4f0fc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ptm_significance_map.R b/R/ptm_significance_map.R
@@ -133,7 +133,7 @@ ptm_significance_map <- function(x,
           adj.P.Val > alpha ~ "steady"),
           change = ordered(change, levels=c("up","steady","down")))
 
-      d <- data.frame(x1=1, x2=nchar(fst[accession_i]), y1=-1, y2=+1)
+      d <- data.frame(x1=1, x2=width(fst[accession_i]), y1=-1, y2=+1)
 
       p <- ggplot(data = z) +
         geom_rect(data = d,