Added ht_text to namespace; proper grid::gpar

stakeout Suspicious device Critical infrastructure Agro Terror BROMURE
Cyber terror Pirates Phishing Tijuana Avian Afghanistan Saudi Arabia
Macintosh Firewalls DJC Cyber Command

NAMESPACE

@@ -42,6 +42,7 @@ export(gseGO)
 export(htSortMatrix)
 export(ht_asterisks)
 export(ht_boxplot)
+export(ht_text)
 export(ht_triangle_split)
 export(installExtraPackages)
 export(load.persample.excel)

R/plotting.R

@@ -127,7 +127,7 @@ saveGGplot <- function(gp, pltprefix, w=7, h=7, dpi=600) {
 #' @export
 ht_text <- function(mat, format="%.2f", fontsize=4, ...) {
   return(function(j, i, x, y, width, height, fill) {
-    grid::grid.text(sprintf(format, mat[i, j]), x, y, gp=gpar(fontsize=fontsize, ...))
+    grid::grid.text(sprintf(format, mat[i, j]), x, y, gp=grid::gpar(fontsize=fontsize, ...))
   })
 }
 #' Draw triangles in heatmap