Update digestR.R

DDesmonts · web-flow · commit ff4823f7a210 · 2024-09-24T16:35:14.000-06:00
diff --git a/R/digestR.R b/R/digestR.R
@@ -6936,7 +6936,7 @@ ff <- zf <- function (...) {
       fileFolder[[current]]$file.par$upfield_ppm[1])
   }else{
     
-    if(nchar()>0)
+    if(nchar(globalSettings$geneDisp)>0)
     {
       fileFolder[[current]]$graphics.par$usr <- c( 
         fileFolder[[current]]$file.par$downfield_ppm[1],

Original file line number	Diff line number	Diff line change
`@@ -6936,7 +6936,7 @@ ff <- zf <- function (...) {`
`6936`	`6936`	`fileFolder[[current]]$file.par$upfield_ppm[1])`
`6937`	`6937`	`}else{`
`6938`	`6938`
`6939`		`- if(nchar()>0)`
	`6939`	`+ if(nchar(globalSettings$geneDisp)>0)`
`6940`	`6940`	`{`
`6941`	`6941`	`fileFolder[[current]]$graphics.par$usr <- c(`
`6942`	`6942`	`fileFolder[[current]]$file.par$downfield_ppm[1],`