82bc7657d57393c3e67c445dc5bf91102e6eb22f
max
  Mon May 20 08:13:40 2019 -0700
remove warning message from R code that happens only on the most recent
R version that is installed on the RR, refs #23024

diff --git src/hg/hgc/hgcData/barChartBoxplot.R src/hg/hgc/hgcData/barChartBoxplot.R
index ce8c1ba..1a729db 100644
--- src/hg/hgc/hgcData/barChartBoxplot.R
+++ src/hg/hgc/hgcData/barChartBoxplot.R
@@ -112,32 +112,32 @@
     text(exprPlot, ymin - adjust, cex=size, labels=labels, srt=rot, xpd=TRUE,
         adj=c(1,.5), col=colorsHex)
 }
 
 args <- commandArgs(TRUE)
 locus <- args[1]
 units <- args[2]
 colorFile <- args[3]
 dataFile <- args[4]
 outFile <- args[5]
 name2 <- args[6]
 # this argument can be used by QA to check if the new fonts look very different from the old fonts
 # see #22838
 useOldFonts <- (!is.na(args[7]) && args[7]=="1")
 
-if (!useOldFonts && require("showtext",character.only=TRUE)) {
-    library(showtext)
+if (!useOldFonts && require("showtext",character.only=TRUE, quietly=TRUE)) {
+    library(showtext, quietly=TRUE)
     showtext_auto()
     showtext_opts(dpi = 72)
 }
 
 # read colors file
 colorDf = read.table(colorFile, sep="\t", header=TRUE)
 colorsHex <- paste("#",as.character(as.hexmode(colorDf$color)), sep="")
 
 # order categories as in colors file
 df <- read.table(dataFile, sep="\t", header=TRUE)
 df$category <- ordered(df$category, levels=colorDf$category)
 labels <- names(table(df$category))
 count <- length(labels)
 
 # draw graph