inst/app/plot_09_tableplot.R

In sigbertklinke/smvgraph: Visualization and Clustering of Data in a Shiny App

module[["tableplot"]] <- list(
  label = "Table plot",
  help  = "smvgraph::tableplot",
  packages = "smvgraph",
  usable = function(analysis, group, data, input) {
     (nrow(analysis)>1) && (nrow(group)==0) 
  },
  code = function(analysis, group, data, input) {
    rn <- row.names(analysis)
    template("
    0: library('smvgraph')
    0: tableplot({{dat}}, bin=sortbin({{dat}}, sortCol={{sortCol}}, decreasing={{decreasing}}))
             ",
             dat=sprintf("data[,c(%s)]", paste0("'", rn, "'", collapse=", ")),
             sortCol=getval(input$tableplot_sortcol, 1),
             decreasing=getval(input$tableplot_decreasing, FALSE)
    )
  },
  ui = function(analysis, group, data, input) {
    list(sliderInput("tableplot_sortcol", "Sorting column", 1, nrow(analysis), 1, 1),
         checkboxInput("tableplot_decreasing", "Decreasing", TRUE)
    )
  }
)