Update digestR.R

DDesmonts · web-flow · commit 45b9183345df · 2024-09-24T15:26:55.000-06:00
diff --git a/R/digestR.R b/R/digestR.R
@@ -19075,6 +19075,8 @@ onDisplayGene <- function() {
   onOK <- function() {
     # Get the gene name from either the entry box or dropdown
     geneName <- tclvalue(geneEntryVar)
+    
+    # Fix: Ensure that nchar() has a valid string input by providing a default empty string
     if (nchar(geneName) == 0) {
       geneName <- tclvalue(geneDropdownVar)  # Fall back to dropdown selection
     }
@@ -19110,6 +19112,7 @@ onDisplayGene <- function() {
 }
 displayGeneButton <- ttkbutton(genePlotTypeFrame, text='Display Single Gene', width=21, command=onDisplayGene)
 
+
   onDisplayProteome <- function()
   {
     analyze_genes('')

Original file line number	Diff line number	Diff line change
`@@ -19075,6 +19075,8 @@ onDisplayGene <- function() {`
`19075`	`19075`	`onOK <- function() {`
`19076`	`19076`	`# Get the gene name from either the entry box or dropdown`
`19077`	`19077`	`geneName <- tclvalue(geneEntryVar)`
	`19078`	`+`
	`19079`	`+ # Fix: Ensure that nchar() has a valid string input by providing a default empty string`
`19078`	`19080`	`if (nchar(geneName) == 0) {`
`19079`	`19081`	`geneName <- tclvalue(geneDropdownVar) # Fall back to dropdown selection`
`19080`	`19082`	`}`
`@@ -19110,6 +19112,7 @@ onDisplayGene <- function() {`
`19110`	`19112`	`}`
`19111`	`19113`	`displayGeneButton <- ttkbutton(genePlotTypeFrame, text='Display Single Gene', width=21, command=onDisplayGene)`
`19112`	`19114`
	`19115`	`+`
`19113`	`19116`	`onDisplayProteome <- function()`
`19114`	`19117`	`{`
`19115`	`19118`	`analyze_genes('')`