inst/sticky/server.R

In ziqiangc/Knees:

library(shiny)
library(Knees)

shinyServer(function(input, output){
    output$stick <- renderPlot({
        stickyplot(face=input$face,
                   gender=input$gender,
                   arms=input$arms)
    })

})