Nothing
#' rulerTitle
#' This is an internal function that plots rulers
#'
#' It returns rulers (axis)
#'
#' @keywords internal
#'
#' @param xmnoNA x coords
#' @param ymnoNA y coords
#' @param chrSpacing chr. spacing
#' @param listOfdfChromSizeCenType only d.f. of this cen. type
#' @param MbUnit intervals
#' @param xPosRulerTitle font
#' @param specialyTitle modifier of pos.
#' @param yTitle pos. of ruler
#' @param rulerTitleSize font size
#'
#' @return plot
#' @importFrom graphics text
rulerTitle <- function(xmnoNA, ymnoNA, chrSpacing, yPosRulerTitle, listOfdfChromSizeCenType,
MbUnit, specialyTitle, yTitle, xPosRulerTitle, rulerTitleSize, verticalPlot) {
amount <- if (verticalPlot) {
length(listOfdfChromSizeCenType)
} else {
1
}
for (s in 1:amount) {
if (attr(listOfdfChromSizeCenType[[s]], "ytitle") == "Mb") {
unit <- MbUnit
} else if (attr(listOfdfChromSizeCenType[[s]], "ytitle") == "cM") {
unit <- specialyTitle
} else {
unit <- yTitle
}
graphics::text(min(xmnoNA[[s]][, 3]) - (chrSpacing * xPosRulerTitle),
max(ymnoNA[[s]]) + (yPosRulerTitle / 3),
labels = unit,
cex = rulerTitleSize
)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.