renderADplot: Renders an allelic discrimination viewer

In kablag/shinyMolBio: Molecular Biology Visualization Tools for 'Shiny' Apps

Renders an allelic discrimination viewer

Description

Renders a reactive allelic discrimination plot that is suitable for assigning to an UI output slot.

Usage

renderADplot(inputId, label = NULL, adData,
        targetColumn = "target.dyeId", xAxisTarget = "FAM",
        yAxisTarget = "HEX", valueColumn = "endPointRFU",
        colorBy = "genotype", polar = FALSE, showLegend = FALSE,
        plotlyCode = NULL, cssFile = NULL, cssText = NULL,
        interactive = TRUE)

Arguments

inputId	The input slot that will be used to modify plot.
label	Display label for the control, or NULL for no label.
adData	Allelic descrimination data with RDML$AsTable() format.
targetColumn	Column name that contains axis splitting (dye or target).
xAxisTarget	X axis target (dye) name.
yAxisTarget	X axis target (dye) name.
valueColumn	Column name that contains discrimination value (RFU or cq).
colorBy	Column name that contains color levels data.
polar	Enables polar coordinates.
showLegend	Show plot legend.
plotlyCode	Your quoted custom plotly code.
cssFile	Path to the css styles file.
cssText	CSS styles as text.
interactive	Should be this adPLot interactive or not.

Author(s)

Konstantin A. Blagodatskikh <[e-mail]>

See Also

updateADplot

Other render elements: renderAmpCurves(), renderMeltCurves()

Examples

library(RDML)
rdml <- RDML$new(system.file("/extdata/test.rdml", package = "shinyMolBio"))
tbl <- rdml$AsTable(endPointRFU = mean(tail(data$adp$fpoints$fluor, 5)))
tbl <- group_by(tbl, position)
tbl <- mutate(tbl,
              genotype = paste(
                if (endPointRFU[1] > 400 && endPointRFU[2] > 400) "AG"
                else if (endPointRFU[1] > 400) "AA"
                else if (endPointRFU[2] > 400) "GG"
                else "NA"
              ))
renderADplot("f", "aa", tbl, polar = TRUE, showLegend = TRUE)

kablag/shinyMolBio documentation built on Nov. 8, 2024, 10:06 a.m.