originalHeatmapOutput | R Documentation |
UI for the original heatmap
originalHeatmapOutput(heatmap_id, title = NULL,
width = 450, height = 350,
action = "click", cursor = TRUE,
response = c(action, "brush"),
brush_opt = list(stroke = "#f00", opacity = 0.6),
containment = FALSE, internal = FALSE)
heatmap_id |
ID of the plot. |
title |
Title of the original heatmap. |
width |
Width of the original heatmap. |
height |
Height of the original heatmap. |
action |
Which action for selecting single cells on the heatmap? Value should be |
cursor |
When moving mouse on heatmap, whether to show the cursors on the four sides? |
response |
Which action needs to be responded on the server side? Value should be in |
brush_opt |
A list of parameters passed to |
containment |
Whether the resizing is restricted in a certain parent div? Value can be |
internal |
Internally used. |
subHeatmapOutput
, HeatmapInfoOutput
.
if(interactive()) {
require(shinydashboard)
m = matrix(rnorm(100), 10)
ht = Heatmap(m)
body = dashboardBody(
fluidRow(
box(title = "Original heatmap", width = 4, solidHeader = TRUE, status = "primary",
originalHeatmapOutput("ht")
),
box(title = "Sub-heatmap", width = 4, solidHeader = TRUE, status = "primary",
subHeatmapOutput("ht")
),
box(title = "Output", width = 4, solidHeader = TRUE, status = "primary",
HeatmapInfoOutput("ht")
)
)
)
ui = dashboardPage(
dashboardHeader(),
dashboardSidebar(),
body
)
server = function(input, output, session) {
makeInteractiveComplexHeatmap(input, output, session, ht, "ht")
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.