Browse code

3.1.7 bufix report: '../' in windows

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/FGNet@96135 bc3139a8-67e5-0310-9ffc-ced21a209358

Sara Aibar authored on 29/10/2014 09:57:04
Showing 2 changed files

... ...
@@ -2,7 +2,7 @@ Package: FGNet
2 2
 Type: Package
3 3
 Title: Functional Gene Networks derived from biological enrichment analyses
4 4
 Description: Build and visualize functional gene and term networks from clustering of enrichment analyses in multiple annotation spaces. The package includes a graphical user interface (GUI) and functions to perform the functional enrichment analysis through DAVID, GeneTerm Linker, gage (GSEA) and topGO.
5
-Version: 3.1.6
5
+Version: 3.1.7
6 6
 Date: 2014-10-22
7 7
 Author: Sara Aibar, Celia Fontanillo, Conrad Droste and Javier De Las Rivas.
8 8
 Maintainer: Sara Aibar <[email protected]>
... ...
@@ -60,7 +60,7 @@ FGNet_report <- function (feaResults, geneExpr=NULL, plotExpression="border", on
60 60
     setwd(folder)
61 61
     
62 62
     tryCatch({
63
-        htmlFileName <- paste("..", .Platform$file.sep, jobName, ".html", sep="") ## Windows??
63
+        htmlFileName <- paste(currWD, .Platform$file.sep, jobName, ".html", sep="") 
64 64
         createHtml(htmlFileName=htmlFileName, feaResults=feaResults, jobName=jobName, tablesGenes=tablesGenes, tablesTerms=tablesTerms,  # Data
65 65
                    tool=tool, queryArgs=queryArgs, # Query info
66 66
                    filterAttribute=filterAttribute, filterOperator=filterOperator, filterThreshold=filterThreshold, # Filter info