R/mod_dot_plot_para.R

In igemsoftwareadmin/ClusteRsy-Linkoping: ClusteRsy

#' dot_plot_para UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_dot_plot_para_ui <- function(id){
  ns <- NS(id)
  tagList(
      #Parameters
      tags$h3(class = "text-center",
              "Parameters"),
      #Dot plot
      textInput(ns("title"), 
                label = "Title"),
      selectInput(ns("xaxis"),
                  label = "X-axis",
                  choices = c("GeneRatio", "Count")),
      selectInput(ns("color"),
                  label = "Color",
                  choices = c("pvalue", "p.adjust", "qvalue")),
      sliderInput(ns("showcategory"), 
                  label = "Number of enriched terms to display",
                  min = 5,
                  max = 50,
                  value = 10),
      tags$div(style = "text-align:center",
               downloadButton(ns("download_graph"), "PDF"))
)
}
    
#' dot_plot_para Server Function
#'
#' @noRd 
mod_dot_plot_para_server <- function(input, output, session, selected, con){
  ns <- session$ns
  dot_plot_para_module <- reactiveValues()
  observe({
    dot_plot_para_module$xaxis <- input$xaxis
    dot_plot_para_module$color <- input$color
    dot_plot_para_module$showcategory <- input$showcategory
    dot_plot_para_module$title <- input$title
  })
  
  # Download function
  output$download_graph <- downloadHandler(
    filename = function() {
      paste0("dot_plot.pdf")
    },
    content = function(file) {
      erichment_object <- MODifieRDB::enrichment_object_from_db(selected$selected_object, con)
      p <- clusterProfiler::dotplot(enrichment_object,
                               x=dot_plot_para_module$xaxis,
                               showCategory = dot_plot_para_module$showcategory,
                               color = dot_plot_para_module$color,
                               title = dot_plot_para_module$title)
      ggplot2::ggsave(file, plot = p, device = "pdf")
    }
  )
  
  return(dot_plot_para_module)
}
    
## To be copied in the UI
# mod_dot_plot_para_ui("dot_plot_para_ui_1")
    
## To be copied in the server
# callModule(mod_dot_plot_para_server, "dot_plot_para_ui_1")