InteractiveComplexHeatmapModal | R Documentation |
Interactive complex heatmap modal dialog
InteractiveComplexHeatmapModal(
input, output, session, ht_list, heatmap_id = NULL,
# parameters passed to InteractiveComplexHeatmapOutput()
title1 = "Original heatmap", title2 = "Selected sub-heatmap",
width1 = ifelse(layout == "1|(2-3)", 800, 450),
height1 = ifelse(layout == "1-(2|3)", 700, 350),
width2 = 370,
height2 = 350,
width3 = ifelse(layout == "(1-2)|3", 800, 370),
layout = ifelse("brush" %in% response, "(1-2)|3", "1-3"), compact = FALSE,
action = "click", cursor = TRUE, response = c(action, "brush"),
brush_opt = list(stroke = "#f00", opacity = 0.6),
output_ui = TRUE, output_ui_float = FALSE,
# parameters passed to makeInteractiveComplexHeatmap()
click_action = NULL, brush_action = NULL,
# other configurations
js_code = "", close_button = TRUE, cancel_action = c("remove", "hide"))
input |
Passed from the Shiny server function. |
output |
Passed from the Shiny server function. |
session |
Passed from the Shiny server function. |
ht_list |
A |
heatmap_id |
ID of the plot. If it is not specified, an internal ID is assigned. |
title1 |
Pass to |
title2 |
Pass to |
width1 |
Pass to |
height1 |
Pass to |
width2 |
Pass to |
height2 |
Pass to |
width3 |
Pass to |
layout |
Pass to |
compact |
Pass to |
action |
Pass to |
cursor |
Pass to |
response |
Pass to |
brush_opt |
Pass to |
output_ui |
Pass to |
output_ui_float |
Pass to |
click_action |
Pass to |
brush_action |
Pass to |
js_code |
Additional JavaScript code that is put after the interactive heatmap UI. The value can be a text or a function that takes "heatmap ID" as the argument and returns the formatted JavaScript code. |
close_button |
Whether to add a close button at the end of the widget. If it is |
cancel_action |
Whether to remove the UI from HTML or just hide it when the UI is closed. |
It creates an interactive heatmap "modal dialog" according to a certain action.
The function is normally put inside observe
or observeEvent
.
No value is returned.
if(interactive()) {
require(ComplexHeatmap)
ui = fluidPage(
actionButton("show_heatmap", "Generate_heatmap"),
)
server = function(input, output, session) {
m = matrix(rnorm(100), 10)
ht = Heatmap(m)
observeEvent(input$show_heatmap, {
InteractiveComplexHeatmapModal(input, output, session, ht)
})
}
shiny::shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.