inst/app/plot_01_qqnorm.R

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

module[["qqnorm"]] <- list(
  label = "Q-Q norm plot",
  help  = "graphics::qqnorm",
  usable = function(analysis, group, data, input) {
    (nrow(analysis)==1) 
  },
  code = function(analysis, group, data, input) {
    template("
             0: x <- numeric_data({{x}}, out='vector')
             0: keep <- is.finite(x)
             0: x <- x[keep]
             1: col <- color_data({{g}})[keep]
             1: qqnorm(x, pch={{pch}}, cex={{cex}}, col=col)
             !1: qqnorm(x, pch={{pch}}, cex={{cex}})
             0: qqline(x, lwd={{lwd}}, lty={{lty}})
             1: ucol <- col[!duplicated(col)]
             1: legend({{pos}}, legend=names(ucol), fill=ucol, title=attr(col, 'title'), cex={{lex}})
             ", 
             x  =sprintf("data$%s", row.names(analysis)),
             g  =sprintf("subset(data, select=c(%s))", paste0("'", row.names(group), "'", collapse=", ")), 
             pch=getval(input$smvgraph_pch,1),
             cex=getval(input$smvgraph_cex,1),
             lwd=getval(input$smvgraph_lwd, 1),
             lty=getval(input$smvgraph_lty, 1),
             lex=getval(input$smvgraph_lex, 1),
             pos=txt(getval(input$smvgraph_legend, "topleft")),
             nrow(group)>0 #1
             )
  },
  ui = function(analysis, group, data, input) {
    list(UIpointsymbol(),
         UIpointsize(),
         UIlinetype(),
         UIlinewidth(),
         if (nrow(group)>0) UIlegend() else NULL,
         if (nrow(group)>0) UIlegendsize() else NULL
    )
  }
)