inst/shinyApp/plot1_Module.R

In rcastelo/GSVA: Gene Set Variation Analysis for Microarray and RNA-Seq Data

plot1_UI <- function(id){
  ns <- NS(id)
  plotlyOutput(ns("plot"))
}

plot1_Server <- function(id, rv){
  moduleServer(
    id,
    function(input, output, session){
      
      output$plot <- renderPlotly({
        req(rv$dat.t)
        # in order to print the name of the method (and not the 
        # selected value from the method) on the 'x' label, this
        # name is retrieved from the list 'methodChoices' declared
        # in 'global.R
        method <- names(methodChoices)[methodChoices == rv$method]
        rv$p <- ggplot(data = rv$dat.t, aes(x=value, color=Sample)) +
          stat_density(geom="line", position = "identity") +
          theme(legend.position = "none") + labs(x=paste0(method, " Scores"), y="Density") +
          scale_color_manual("Legend", values = rv$dd.col)
        ggplotly(rv$p, tooltip = "Sample", source = "click1")
      })
    }
  )
}