inst/app/plot_02_stripplot_lattice.R

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

module[["stripplot_lattice"]] <- list(
  label = "Strip chart (lattice)",
  help  = "lattice::panel.stripplot_lattice",
  packages = c("lattice"),
  usable = function(analysis, group, data, input) {
    (nrow(analysis)==1) && (nrow(group)>0)
  },
  code = function(analysis, group, data, input) {
    rn <- row.names(analysis)
    gn <- row.names(group)
    formula <- sprintf("%s~%s", rn[1], gn[1])
    if (length(input$group_var)>1) 
      formula <- paste0(formula, "|", paste0(gn[-1], collapse="+"))
    template("
             0:  library('lattice')
             0:  x   <- cbind(numeric_data(data, select={{x}}),
             0:               character_data(data, select={{g}}))
             0:  stripplot({{formula}}, data=x, jitter.data={{jitter}}, amount={{amount}}, pch=19)
             ", 
             x=as_param(txt(row.names(analysis)), fun="c"),
             g=as_param(txt(row.names(group)), fun="c"),
             jitter=getval(input$stripplot_lattice_amount>0, FALSE),
             amount=getval(input$stripplot_lattice_amount, 0),
             formula=formula
            )
  },
  ui = function(analysis, group, data, input) {
    list(sliderInput("stripplot_lattice_amount", "Amount of jittering", 0, 0.5, 0, 0.05))
  }
)