InteractiveComplexHeatmapModal {InteractiveComplexHeatmap} | 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) }