Speed up calculation of the 'Open Chromatin' plot.

[khoroshevskyi]

To calculate and crate the Open Chromatin plot we spend 20sec.
The line of code that does it is:

bedboss/bedboss/bedstat/tools/regionstat.R

Lines 325 to 342 in 26354c5

	# Tissue specificity plot if open signal matrix is provided
	if (!exists("bedmeta") ){
	if (openSignalMatrix == "None") {
	message("open signal matrix not provided. Skipping tissue specificity plot ... ")
	} else {
	tryCatch(
	expr = {
	plotBoth("open_chromatin", plotSummarySignal(calcSummarySignal(query, data.table::fread(openSignalMatrix))), digest, outfolder)
	plots = rbind(plots, getPlotReportDF("open_chromatin", "Cell specific enrichment for open chromatin", digest, outfolder))
	message("Successfully calculated and plot cell specific enrichment for open chromatin.")
	},
	error = function(e){
	message('Caught an error in creating: Cell specific enrichment for open chromatin plot!')
	print(e)
	}
	)
	}
	}

Is there a way to speed this process up?