diff --git a/DESCRIPTION b/DESCRIPTION index 29593462..83ae821f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: netZooR Type: Package Title: Unified methods for the inference and analysis of gene regulatory networks -Version: 1.1.15 +Version: 1.1.16 Date: 2022-07-07 Authors@R: c(person("Marouen", "Ben Guebila", email = "benguebila@hsph.harvard.edu", role = c("aut","cre"), comment = c(ORCID = "0000-0001-5934-966X")), diff --git a/NAMESPACE b/NAMESPACE index b73dc999..29f527a0 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -31,6 +31,7 @@ export(monsterTransitionNetworkPlot) export(monsterTransitionPCAPlot) export(monsterdTFIPlot) export(otter) +export(pandaDiffEdges) export(pandaPy) export(pandaToAlpaca) export(pandaToCondorObject) diff --git a/R/PANDA.R b/R/PANDA.R index 40f9c3f3..976a32fe 100644 --- a/R/PANDA.R +++ b/R/PANDA.R @@ -65,7 +65,7 @@ #' -pandaPy <- function(expr_file, motif_file=NULL, ppi_file=NULL, computing="cpu", precision="double",save_memory=FALSE, save_tmp=TRUE, keep_expression_matrix=FALSE, modeProcess="union", remove_missing=FALSE){ +pandaPy <- function(expr_file, motif_file=NULL, ppi_file=NULL, computing="cpu", precision="double",save_memory=FALSE, save_tmp=TRUE, keep_expression_matrix=FALSE, modeProcess="union", remove_missing=FALSE, with_header=FALSE){ if(missing(expr_file)){ stop("Please provide the path of gene expression data file to 'expr_file' variable") } @@ -106,6 +106,13 @@ pandaPy <- function(expr_file, motif_file=NULL, ppi_file=NULL, computing="cpu", keepexpression.str <- "keep_expression_matrix=True" } else{ keepexpression.str <- "keep_expression_matrix=False" } + # with header option + if(with_header==FALSE){ + withheader.str <- "with_header=False" + }else if (with_header==TRUE){ + withheader.str <- "with_header=True" + } + # when pre-processing mode is legacy if(modeProcess == "legacy"){ @@ -130,7 +137,9 @@ pandaPy <- function(expr_file, motif_file=NULL, ppi_file=NULL, computing="cpu", reticulate::source_python(pandapath,convert = TRUE) # invoke Python script to create a Panda object - obj.str <- paste("panda_obj=Panda(", expr.str, ",", motif.str,",", ppi.str, ",", computing.str, ",", precision.str, ",", savememory.str, ",", savetmp.str, "," , keepexpression.str, ",", mode.str, ")", sep ='') + obj.str <- paste("panda_obj=Panda(", expr.str, ",", motif.str,",", ppi.str, ",", + computing.str, ",", precision.str, ",", savememory.str, ",", savetmp.str, "," , + keepexpression.str, ",", mode.str, "," , withheader.str, ")", sep ='') # run Python code py_run_string(obj.str) diff --git a/docs/404.html b/docs/404.html index 40cee443..8ddfd96c 100644 --- a/docs/404.html +++ b/docs/404.html @@ -71,7 +71,7 @@ netZooR - 1.0.4 + 1.1.16 @@ -130,6 +130,9 @@ YARN: Robust Multi-Tissue RNA-Seq Preprocessing and Normalization + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog
  • + +
  • + Changelog