bf

Development/config.R

@@ -11,14 +11,13 @@ DESCRIPTION <- list(
     4. Describe your figures & findings in the same report in a clear and nicely formatted way, parsed from your variables into english sentences.
     5. Share your report, by exporting your report to .pdf, .html or .docx, or via Github or a personal website.",
 
+  depends = "Stringendo, CodeAndRoll2, MarkdownHelpers",
+  imports = "gplots, RColorBrewer, VennDiagram, vioplot, colorRamps, sessioninfo, clipr, pheatmap, grid ReadWriter",
+  suggests = "",
+
   author.given = "Abel",
   author.family = "Vertesy",
   author.email = "[email protected]",
-  github.user = "vertesy",
   license = "GPL-3 + file LICENSE",
-  depends =  "Stringendo, CodeAndRoll2, MarkdownHelpers",
-  imports = "gplots, RColorBrewer, VennDiagram, vioplot, colorRamps, sessioninfo,
-  clipr, pheatmap, grid
-  ReadWriter",
-  suggests = ""
+  github.user = "vertesy"
 )

MarkdownReports.LEGACY.VERSION.v3.1.1/R/MarkdownReports.R

@@ -1338,7 +1338,7 @@ wcolorize  <- function(vector=c(1,1,1:6), RColorBrewerSet=F, ReturnCategoriesToo
   COLZ=as.vector(COLZ)
   names(COLZ) = vector
   CATEG = unique.wNames(COLZ)
-  if(show) Color_Check(CATEG)
+  if(show) MarkdownHelpers::color_check(CATEG)
   if (ReturnCategoriesToo) {COLZ = list("vec" = COLZ, "categ" = CATEG)}
   return(COLZ)
 }