Nothing
R/GUI_tabFEA_tabOther.R
In FGNet: Functional Gene Networks derived from biological enrichment analyses
Defines functions
tabOther_fill
formatResultsFile
processFile
fillCombosColumns
syncTermDescCombos
viewFile
################################################################################
### Aux functions
# viewFile
# syncTermDescCombos
# fillCombosColumns
# processFile
# formatResultsFile
viewFile <- function(button)
{
View(rawResults)
}
syncTermDescCombos <- function(combo, colsCombos)
{
if(combo$getName() == "termDescCol1") colsCombos$termDescCol_B$setActive(colsCombos$termDescCol$getActive())
if(combo$getName() == "termDescCol2") colsCombos$termDescCol$setActive(colsCombos$termDescCol_B$getActive())
}
fillCombosColumns <- function(colsCombos, rawResults) # used by processFile()
{
lapply(colsCombos, function(thisCombo){
thisCombo$getModel()$clear()
for (colN in c("-", colnames(rawResults))) RGtk2::gtkComboBoxAppendText(thisCombo, colN)
thisCombo$setActive(-1)
return(thisCombo)
})
}
processFile <- function(fileName, fieldsList) # called by loadFileDialog(buttonImportFeaResults)
{
if(grepl(".rdata", tolower(fileName), fixed=TRUE))
{
######### load(.RData)
loadedObjects <- load(fileName)
# select object:
if(length(loadedObjects)>1) stop("Please load an .RData file containing only a data.frame") ### TO DO!!!
rawResults <<- eval(as.name(loadedObjects))
}else
{
######### load TEXT file
# fileName <- "reactPA.txt"
sep <- names(fieldsList$fieldSepsValueID[which(fieldsList$fieldSepsValueID==fieldsList$txtOptionsSepCombo$getActive())])
header <- fieldsList$txtOptionsHeaderChk$active
quote <- fieldsList$txtOptionsQuoteChk$active
quote <- ifelse(quote, "\"'", "")
rawResults <<- read.table(fileName,header=header,sep=sep, quote=quote)
}
if(!is.null(rawResults))
{
# set newFileName
# splitedFN <- strsplit(fileName,".", fixed=TRUE)[[1]]
# fName <- paste(splitedFN[1:(length(splitedFN)-1)], collapse=".")
# fExt <- NULL
# if(length(splitedFN)>1) fExt <- paste(".", splitedFN[length(splitedFN)], sep="")
if(fieldsList$jobNameText$getText()=="")
{
fName <- getJobName(fileName)
fName <- gsub("_raw","", fName)
jobName <- paste(fName, "_formatted", sep="") # , fExt
fieldsList$jobNameText$setText(jobName)
}
fillCombosColumns(fieldsList$colsCombos, rawResults)
RGtk2::gtkWidgetSetSensitive(fieldsList$buttonViewResults,TRUE)
}
}
formatResultsFile <- function(fieldsList) # called by submitQuery()
{
# Text fields
newFileName <- fieldsList$jobNameText$getText()
if(newFileName=="") newFileName <- NULL
geneSep <- fieldsList$geneSepText$getText()
if(geneSep=="") geneSep<-NULL
termCat <- fieldsList$termCatText$getText()
if(termCat=="") termCat<-NULL
termSep <- fieldsList$termSepText$getText()
if(termSep=="") termSep<-NULL
# Columns (combo)
colsValues <- sapply(fieldsList$colsCombos, function(x) x$getActive())
colsValues[colsValues==-1] <- NA
colsValues[colsValues==0] <- NA
colsValues <- setNames(colnames(rawResults)[colsValues], names(colsValues))
colsValues<-as.list(colsValues)
colsValues[is.na(colsValues)] <- NULL
fileFormated <- NULL
# Create folder
if(!file.exists(file.path(newFileName)))
{
dir.create(file.path(newFileName))
}
currWD <- getwd()
setwd(newFileName)
# Format
fileFormated <- format_results(rawResults, newFileName=paste(newFileName, ".txt", sep=""),
clusterCol=colsValues$clusterCol, geneCol=colsValues$geneCol, geneSep=geneSep, termDescCol=colsValues$termDescCol, termIDCol=colsValues$termIDCol,
termCatCol=colsValues$termCatCol, termCat=termCat, termSep=termSep)
# Return to folder
setwd(currWD)
return(fileFormated)
}
#################################################################################
### Fills Other tab
#################################################################################
tabOther_fill <- function(mainWindow, jobNameText)
{
tabOther <- RGtk2::gtkVBox(FALSE,2)
tabOther$packStart(RGtk2::gtkLabelNew("Format external FEA results to use with FGNet"), expand=FALSE)
############# Text file options
txtOptionsExpander <- RGtk2::gtkExpander("Text file options")
txtOptionsExpanderBox <- RGtk2::gtkHBox(FALSE,3)
txtOptionsHeaderChk <- RGtk2::gtkCheckButton("Header")
txtOptionsHeaderChk$active <- TRUE
txtOptionsExpanderBox$packStart(txtOptionsHeaderChk, expand=FALSE)
txtOptionsQuoteChk <- RGtk2::gtkCheckButton("Quote")
txtOptionsQuoteChk$active <- TRUE
txtOptionsExpanderBox$packStart(txtOptionsQuoteChk, expand=FALSE)
txtOptionsExpanderBox$packStart(RGtk2::gtkLabelNew(" Sep: "), expand=FALSE)
fieldSepsText <- setNames(1:4-1,c("Space", "Tab",",",";"))
fieldSepsValueID <- setNames(1:4-1,c(" ", "\t",",",";"))
txtOptionsSepCombo <- RGtk2::gtkComboBoxNewText()
for (id in names(fieldSepsText)) RGtk2::gtkComboBoxAppendText(txtOptionsSepCombo, id)
txtOptionsSepCombo$setActive(1)
txtOptionsSepCombo$SetTooltipText('Field separator character.')
txtOptionsExpanderBox$packStart(txtOptionsSepCombo, expand=FALSE)
txtOptionsExpander$add(txtOptionsExpanderBox)
tabOther$packStart(txtOptionsExpander, expand=FALSE)
############# Select results file
tabOtherH1Box <- RGtk2::gtkHBox(FALSE,3)
# File
framefeaResultsImport <- RGtk2::gtkFrame("Raw FEA results")
RGtk2::gtkFrameSetShadowType(framefeaResultsImport, GtkShadowType["none"])
feaResultsImportText <- RGtk2::gtkEntryNew()
feaResultsImportText$setWidthChars(25)
feaResultsImportText$"tooltip-text" <- "text file or .RData with data.frame"
framefeaResultsImport$add(feaResultsImportText)
tabOtherH1Box$packStart(framefeaResultsImport, expand=TRUE)
# Button View
frameFEAfileView_other <- RGtk2::gtkFrame("")
RGtk2::gtkFrameSetShadowType(frameFEAfileView_other, GtkShadowType["none"])
buttonViewResults <- RGtk2::gtkButton("View")
buttonViewResults$name <- "buttonViewResults"
RGtk2::gSignalConnect(buttonViewResults, "clicked", viewFile)
frameFEAfileView_other$add(buttonViewResults)
RGtk2::gtkWidgetSetSensitive(buttonViewResults,FALSE)
tabOtherH1Box$packStart(frameFEAfileView_other, expand=FALSE)
# Button load
frameImportFeaResults <- RGtk2::gtkFrame("")
RGtk2::gtkFrameSetShadowType(frameImportFeaResults, GtkShadowType["none"])
buttonImportFeaResults <- RGtk2::gtkButton("Select file")
buttonImportFeaResults$name <- "buttonImportFeaResults"
frameImportFeaResults$add(buttonImportFeaResults)
tabOtherH1Box$packStart(frameImportFeaResults, expand=FALSE)
tabOther$packStart(tabOtherH1Box, expand=FALSE)
############# Format options
##### Create fields
# geneSep=NULL
geneSepTextFrame <- RGtk2::gtkFrame()
RGtk2::gtkFrameSetShadowType(geneSepTextFrame, GtkShadowType["none"])
geneSepText <- RGtk2::gtkEntryNew()
geneSepText$setWidthChars(5)
geneSepText$SetTooltipText(" , ; ")
geneSepTextFrame$add(geneSepText)
# termSep=NULL
termSepTextFrame <- RGtk2::gtkFrame()
RGtk2::gtkFrameSetShadowType(termSepTextFrame, GtkShadowType["none"])
termSepText <- RGtk2::gtkEntryNew()
termSepText$setWidthChars(5)
termSepText$SetTooltipText(" , ; ")
termSepTextFrame$add(termSepText)
# termCat=NULL
termCatText <- RGtk2::gtkEntryNew()
termCatText$setWidthChars(10)
#termCatTextFrame$add(termCatText)
# Select columns for...
colsID <- c("clusterCol", "geneCol", "termDescCol","termDescCol_B", "termIDCol", "termCatCol")
colsCombos <- lapply(colsID, function(x) RGtk2::gtkComboBoxNewText())
names(colsCombos) <- colsID
colsCombos$termDescCol$setName("termDescCol1")
colsCombos$termDescCol_B$setName("termDescCol2")
colsFrames <- lapply(colsID, function(x)
{
tmp <- RGtk2::gtkFrame() #(x)
RGtk2::gtkFrameSetShadowType(tmp, GtkShadowType["none"])
tmpBox <- RGtk2::gtkHBox(FALSE,3)
#tmpBox$packStart(colsText[[x]], expand=TRUE)
tmpBox$packStart(colsCombos[[x]], expand=TRUE)
tmp$add(tmpBox)
return(tmp)
})
names(colsFrames) <- colsID
##### Place fields
frameFormatOptions <- RGtk2::gtkFrame("Select columns")
formatOptionsBox <- RGtk2::gtkVBox(FALSE,3)
formatOptionsTable <- RGtk2::gtkTable(rows = 3, columns = 4, homogeneous = FALSE)
formatOptionsTable$attach(RGtk2::gtkLabel("Cluster"), left.attach=1,2, top.attach=0,1)
formatOptionsTable$attach(RGtk2::gtkLabel("Genes"), left.attach=2,3, top.attach=0,1)
formatOptionsTable$attach(RGtk2::gtkLabel("Terms"), left.attach=3,4, top.attach=0,1)
formatOptionsTable$attach(colsFrames$clusterCol, left.attach=1,2, top.attach=1,2)
formatOptionsTable$attach(colsFrames$geneCol, left.attach=2,3, top.attach=1,2)
formatOptionsTable$attach(colsFrames$termDescCol, left.attach=3,4, top.attach=1,2)
formatOptionsTable$attach(RGtk2::gtkLabel("Sep. char:"), left.attach=1,2, top.attach=2,3)
formatOptionsTable$attach(geneSepTextFrame, left.attach=2,3, top.attach=2,3)
formatOptionsTable$attach(termSepTextFrame, left.attach=3,4, top.attach=2,3)
# Common category
formatOptionsTable$setColSpacing(0, 5)
formatOptionsBox$packStart(formatOptionsTable, expand=FALSE)
frameFormatOptions$add(formatOptionsBox)
tabOther$packStart(frameFormatOptions, expand=FALSE)
### Terms alternative:
formatTermsFrameB <- RGtk2::gtkFrame("Terms - Alternative formatting")
formatOptionsAltTable <- RGtk2::gtkTable(rows = 3, columns = 3, homogeneous = FALSE)
formatOptionsAltTable$attach(RGtk2::gtkLabel("Category"), left.attach=0,1, top.attach=0,1)
formatOptionsAltTable$attach(RGtk2::gtkLabel("ID"), left.attach=1,2, top.attach=0,1)
formatOptionsAltTable$attach(RGtk2::gtkLabel("Description"), left.attach=2,3, top.attach=0,1)
formatOptionsAltTable$attach(colsFrames$termCatCol, left.attach=0,1, top.attach=1,2)
formatOptionsAltTable$attach(termCatText, left.attach=0,1, top.attach=2,3)
formatOptionsAltTable$attach(colsFrames$termIDCol, left.attach=1,2, top.attach=1,2)
formatOptionsAltTable$attach(colsFrames$termDescCol_B, left.attach=2,3, top.attach=1,2)
formatTermsFrameB$add(formatOptionsAltTable)
tabOther$packStart(formatTermsFrameB, expand=FALSE)
fields <- list(txtOptionsHeaderChk=txtOptionsHeaderChk, txtOptionsQuoteChk=txtOptionsQuoteChk, txtOptionsSepCombo=txtOptionsSepCombo, fieldSepsValueID=fieldSepsValueID,
feaResultsImportText=feaResultsImportText,buttonViewResults=buttonViewResults, buttonImportFeaResults=buttonImportFeaResults,
colsCombos=colsCombos, colsID=colsID,
geneSepText=geneSepText, termSepText=termSepText,
termCatText=termCatText)
# SignalConnects
RGtk2::gSignalConnect(buttonImportFeaResults, "clicked", loadFileDialog, data=list(parentWindow=mainWindow, fields=c(fields,list(jobNameText=jobNameText))))
RGtk2::gSignalConnect(colsCombos$termDescCol_B, "changed", syncTermDescCombos, data=colsCombos)
RGtk2::gSignalConnect(colsCombos$termDescCol, "changed", syncTermDescCombos, data=colsCombos)
#######################################################################
## tabOther ready
return(list(tabOther=tabOther, fields=fields))
#######################################################################
}
Try the FGNet package in your browser
Any scripts or data that you put into this service are public.
FGNet documentation built on Nov. 8, 2020, 5:43 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions tabOther_fill formatResultsFile processFile fillCombosColumns syncTermDescCombos viewFile
################################################################################
### Aux functions
# viewFile
# syncTermDescCombos
# fillCombosColumns
# processFile
# formatResultsFile
viewFile <- function(button)
{
View(rawResults)
}
syncTermDescCombos <- function(combo, colsCombos)
{
if(combo$getName() == "termDescCol1") colsCombos$termDescCol_B$setActive(colsCombos$termDescCol$getActive())
if(combo$getName() == "termDescCol2") colsCombos$termDescCol$setActive(colsCombos$termDescCol_B$getActive())
}
fillCombosColumns <- function(colsCombos, rawResults) # used by processFile()
{
lapply(colsCombos, function(thisCombo){
thisCombo$getModel()$clear()
for (colN in c("-", colnames(rawResults))) RGtk2::gtkComboBoxAppendText(thisCombo, colN)
thisCombo$setActive(-1)
return(thisCombo)
})
}
processFile <- function(fileName, fieldsList) # called by loadFileDialog(buttonImportFeaResults)
{
if(grepl(".rdata", tolower(fileName), fixed=TRUE))
{
######### load(.RData)
loadedObjects <- load(fileName)
# select object:
if(length(loadedObjects)>1) stop("Please load an .RData file containing only a data.frame") ### TO DO!!!
rawResults <<- eval(as.name(loadedObjects))
}else
{
######### load TEXT file
# fileName <- "reactPA.txt"
sep <- names(fieldsList$fieldSepsValueID[which(fieldsList$fieldSepsValueID==fieldsList$txtOptionsSepCombo$getActive())])
header <- fieldsList$txtOptionsHeaderChk$active
quote <- fieldsList$txtOptionsQuoteChk$active
quote <- ifelse(quote, "\"'", "")
rawResults <<- read.table(fileName,header=header,sep=sep, quote=quote)
}
if(!is.null(rawResults))
{
# set newFileName
# splitedFN <- strsplit(fileName,".", fixed=TRUE)[[1]]
# fName <- paste(splitedFN[1:(length(splitedFN)-1)], collapse=".")
# fExt <- NULL
# if(length(splitedFN)>1) fExt <- paste(".", splitedFN[length(splitedFN)], sep="")
if(fieldsList$jobNameText$getText()=="")
{
fName <- getJobName(fileName)
fName <- gsub("_raw","", fName)
jobName <- paste(fName, "_formatted", sep="") # , fExt
fieldsList$jobNameText$setText(jobName)
}
fillCombosColumns(fieldsList$colsCombos, rawResults)
RGtk2::gtkWidgetSetSensitive(fieldsList$buttonViewResults,TRUE)
}
}
formatResultsFile <- function(fieldsList) # called by submitQuery()
{
# Text fields
newFileName <- fieldsList$jobNameText$getText()
if(newFileName=="") newFileName <- NULL
geneSep <- fieldsList$geneSepText$getText()
if(geneSep=="") geneSep<-NULL
termCat <- fieldsList$termCatText$getText()
if(termCat=="") termCat<-NULL
termSep <- fieldsList$termSepText$getText()
if(termSep=="") termSep<-NULL
# Columns (combo)
colsValues <- sapply(fieldsList$colsCombos, function(x) x$getActive())
colsValues[colsValues==-1] <- NA
colsValues[colsValues==0] <- NA
colsValues <- setNames(colnames(rawResults)[colsValues], names(colsValues))
colsValues<-as.list(colsValues)
colsValues[is.na(colsValues)] <- NULL
fileFormated <- NULL
# Create folder
if(!file.exists(file.path(newFileName)))
{
dir.create(file.path(newFileName))
}
currWD <- getwd()
setwd(newFileName)
# Format
fileFormated <- format_results(rawResults, newFileName=paste(newFileName, ".txt", sep=""),
clusterCol=colsValues$clusterCol, geneCol=colsValues$geneCol, geneSep=geneSep, termDescCol=colsValues$termDescCol, termIDCol=colsValues$termIDCol,
termCatCol=colsValues$termCatCol, termCat=termCat, termSep=termSep)
# Return to folder
setwd(currWD)
return(fileFormated)
}
#################################################################################
### Fills Other tab
#################################################################################
tabOther_fill <- function(mainWindow, jobNameText)
{
tabOther <- RGtk2::gtkVBox(FALSE,2)
tabOther$packStart(RGtk2::gtkLabelNew("Format external FEA results to use with FGNet"), expand=FALSE)
############# Text file options
txtOptionsExpander <- RGtk2::gtkExpander("Text file options")
txtOptionsExpanderBox <- RGtk2::gtkHBox(FALSE,3)
txtOptionsHeaderChk <- RGtk2::gtkCheckButton("Header")
txtOptionsHeaderChk$active <- TRUE
txtOptionsExpanderBox$packStart(txtOptionsHeaderChk, expand=FALSE)
txtOptionsQuoteChk <- RGtk2::gtkCheckButton("Quote")
txtOptionsQuoteChk$active <- TRUE
txtOptionsExpanderBox$packStart(txtOptionsQuoteChk, expand=FALSE)
txtOptionsExpanderBox$packStart(RGtk2::gtkLabelNew(" Sep: "), expand=FALSE)
fieldSepsText <- setNames(1:4-1,c("Space", "Tab",",",";"))
fieldSepsValueID <- setNames(1:4-1,c(" ", "\t",",",";"))
txtOptionsSepCombo <- RGtk2::gtkComboBoxNewText()
for (id in names(fieldSepsText)) RGtk2::gtkComboBoxAppendText(txtOptionsSepCombo, id)
txtOptionsSepCombo$setActive(1)
txtOptionsSepCombo$SetTooltipText('Field separator character.')
txtOptionsExpanderBox$packStart(txtOptionsSepCombo, expand=FALSE)
txtOptionsExpander$add(txtOptionsExpanderBox)
tabOther$packStart(txtOptionsExpander, expand=FALSE)
############# Select results file
tabOtherH1Box <- RGtk2::gtkHBox(FALSE,3)
# File
framefeaResultsImport <- RGtk2::gtkFrame("Raw FEA results")
RGtk2::gtkFrameSetShadowType(framefeaResultsImport, GtkShadowType["none"])
feaResultsImportText <- RGtk2::gtkEntryNew()
feaResultsImportText$setWidthChars(25)
feaResultsImportText$"tooltip-text" <- "text file or .RData with data.frame"
framefeaResultsImport$add(feaResultsImportText)
tabOtherH1Box$packStart(framefeaResultsImport, expand=TRUE)
# Button View
frameFEAfileView_other <- RGtk2::gtkFrame("")
RGtk2::gtkFrameSetShadowType(frameFEAfileView_other, GtkShadowType["none"])
buttonViewResults <- RGtk2::gtkButton("View")
buttonViewResults$name <- "buttonViewResults"
RGtk2::gSignalConnect(buttonViewResults, "clicked", viewFile)
frameFEAfileView_other$add(buttonViewResults)
RGtk2::gtkWidgetSetSensitive(buttonViewResults,FALSE)
tabOtherH1Box$packStart(frameFEAfileView_other, expand=FALSE)
# Button load
frameImportFeaResults <- RGtk2::gtkFrame("")
RGtk2::gtkFrameSetShadowType(frameImportFeaResults, GtkShadowType["none"])
buttonImportFeaResults <- RGtk2::gtkButton("Select file")
buttonImportFeaResults$name <- "buttonImportFeaResults"
frameImportFeaResults$add(buttonImportFeaResults)
tabOtherH1Box$packStart(frameImportFeaResults, expand=FALSE)
tabOther$packStart(tabOtherH1Box, expand=FALSE)
############# Format options
##### Create fields
# geneSep=NULL
geneSepTextFrame <- RGtk2::gtkFrame()
RGtk2::gtkFrameSetShadowType(geneSepTextFrame, GtkShadowType["none"])
geneSepText <- RGtk2::gtkEntryNew()
geneSepText$setWidthChars(5)
geneSepText$SetTooltipText(" , ; ")
geneSepTextFrame$add(geneSepText)
# termSep=NULL
termSepTextFrame <- RGtk2::gtkFrame()
RGtk2::gtkFrameSetShadowType(termSepTextFrame, GtkShadowType["none"])
termSepText <- RGtk2::gtkEntryNew()
termSepText$setWidthChars(5)
termSepText$SetTooltipText(" , ; ")
termSepTextFrame$add(termSepText)
# termCat=NULL
termCatText <- RGtk2::gtkEntryNew()
termCatText$setWidthChars(10)
#termCatTextFrame$add(termCatText)
# Select columns for...
colsID <- c("clusterCol", "geneCol", "termDescCol","termDescCol_B", "termIDCol", "termCatCol")
colsCombos <- lapply(colsID, function(x) RGtk2::gtkComboBoxNewText())
names(colsCombos) <- colsID
colsCombos$termDescCol$setName("termDescCol1")
colsCombos$termDescCol_B$setName("termDescCol2")
colsFrames <- lapply(colsID, function(x)
{
tmp <- RGtk2::gtkFrame() #(x)
RGtk2::gtkFrameSetShadowType(tmp, GtkShadowType["none"])
tmpBox <- RGtk2::gtkHBox(FALSE,3)
#tmpBox$packStart(colsText[[x]], expand=TRUE)
tmpBox$packStart(colsCombos[[x]], expand=TRUE)
tmp$add(tmpBox)
return(tmp)
})
names(colsFrames) <- colsID
##### Place fields
frameFormatOptions <- RGtk2::gtkFrame("Select columns")
formatOptionsBox <- RGtk2::gtkVBox(FALSE,3)
formatOptionsTable <- RGtk2::gtkTable(rows = 3, columns = 4, homogeneous = FALSE)
formatOptionsTable$attach(RGtk2::gtkLabel("Cluster"), left.attach=1,2, top.attach=0,1)
formatOptionsTable$attach(RGtk2::gtkLabel("Genes"), left.attach=2,3, top.attach=0,1)
formatOptionsTable$attach(RGtk2::gtkLabel("Terms"), left.attach=3,4, top.attach=0,1)
formatOptionsTable$attach(colsFrames$clusterCol, left.attach=1,2, top.attach=1,2)
formatOptionsTable$attach(colsFrames$geneCol, left.attach=2,3, top.attach=1,2)
formatOptionsTable$attach(colsFrames$termDescCol, left.attach=3,4, top.attach=1,2)
formatOptionsTable$attach(RGtk2::gtkLabel("Sep. char:"), left.attach=1,2, top.attach=2,3)
formatOptionsTable$attach(geneSepTextFrame, left.attach=2,3, top.attach=2,3)
formatOptionsTable$attach(termSepTextFrame, left.attach=3,4, top.attach=2,3)
# Common category
formatOptionsTable$setColSpacing(0, 5)
formatOptionsBox$packStart(formatOptionsTable, expand=FALSE)
frameFormatOptions$add(formatOptionsBox)
tabOther$packStart(frameFormatOptions, expand=FALSE)
### Terms alternative:
formatTermsFrameB <- RGtk2::gtkFrame("Terms - Alternative formatting")
formatOptionsAltTable <- RGtk2::gtkTable(rows = 3, columns = 3, homogeneous = FALSE)
formatOptionsAltTable$attach(RGtk2::gtkLabel("Category"), left.attach=0,1, top.attach=0,1)
formatOptionsAltTable$attach(RGtk2::gtkLabel("ID"), left.attach=1,2, top.attach=0,1)
formatOptionsAltTable$attach(RGtk2::gtkLabel("Description"), left.attach=2,3, top.attach=0,1)
formatOptionsAltTable$attach(colsFrames$termCatCol, left.attach=0,1, top.attach=1,2)
formatOptionsAltTable$attach(termCatText, left.attach=0,1, top.attach=2,3)
formatOptionsAltTable$attach(colsFrames$termIDCol, left.attach=1,2, top.attach=1,2)
formatOptionsAltTable$attach(colsFrames$termDescCol_B, left.attach=2,3, top.attach=1,2)
formatTermsFrameB$add(formatOptionsAltTable)
tabOther$packStart(formatTermsFrameB, expand=FALSE)
fields <- list(txtOptionsHeaderChk=txtOptionsHeaderChk, txtOptionsQuoteChk=txtOptionsQuoteChk, txtOptionsSepCombo=txtOptionsSepCombo, fieldSepsValueID=fieldSepsValueID,
feaResultsImportText=feaResultsImportText,buttonViewResults=buttonViewResults, buttonImportFeaResults=buttonImportFeaResults,
colsCombos=colsCombos, colsID=colsID,
geneSepText=geneSepText, termSepText=termSepText,
termCatText=termCatText)
# SignalConnects
RGtk2::gSignalConnect(buttonImportFeaResults, "clicked", loadFileDialog, data=list(parentWindow=mainWindow, fields=c(fields,list(jobNameText=jobNameText))))
RGtk2::gSignalConnect(colsCombos$termDescCol_B, "changed", syncTermDescCombos, data=colsCombos)
RGtk2::gSignalConnect(colsCombos$termDescCol, "changed", syncTermDescCombos, data=colsCombos)
#######################################################################
## tabOther ready
return(list(tabOther=tabOther, fields=fields))
#######################################################################
}
Try the FGNet package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.