inst/myapp/server.R

In rpolicastro/kevin_scRNAseq_shiny: What the Package Does (One Line, Title Case)

server <- function(input, output) {

  ## Meta-data plot output.
  metadataPlotServer("metadataPlot")

  ## Meta-data table output.
  metadataTableServer("metadataTable")

  ## Marker table output.
  markerTableServer("markerTable")

#  ## Marker dot-plot output.
##  marker_dotplot <- callModule(markerDotplot, "markerDotplotInput")
##  output$markerDotplotOutput <- renderPlot({marker_dotplot()}, height = 750)

  ## Expression dim plot output.
  expDimPlotServer("expDimPlot")

  ## Expression plot output.
  expPlotServer("expPlot")

  ## Expression table output.
  expTableServer("expTable")

  ## Term enrichment table output.
  enrichTableServer("enrichTable")

  ## Term enrichment dotplot.
  enrichDotplotServer("enrichDotPlot")

}