inst/shiny-examples/clusterApp/server.R

In vonthein/illustrator: Symbol Plots

source("init.R")

server <- function(input, output) {
  output$pdfPlot <- renderPlot({
    par(mar=rep(0,4),oma=rep(0,4))
    Cluster(nij=input$nij,delta=input$delta,seed=input$seed,age=age,
            icon=input$m*eval(parse(text=input$icon))%*%diag(c(input$p,1)),
            colo=c(input$col1,input$col2,input$col3,input$col4))
  })
  output$pdfDescription <- renderText({paste("Sizes are")})
  output$pdfSum <- renderText({paste(age)})
}