inst/shinyGUI/server/plot_window.R

In ParkerICI/panorama: Visualize and compare flow cytometry data

render_plot_window <- function() { renderUI({
    fluidPage(
        # This window is managed outside of shiny in plotwindow.js
        tags$head(tags$script(src = "plotwindow.js")),

        fluidRow(
            column(12,
                tags$div(id = "plotOutput")
                
            )   
        )
 
        
    )
        
})}