inst/extdata/server.R

In mi2-warsaw/PISAoccupations: Explore relationship between students' perfomance and parents' occupations in PISA studies.

shinyServer(function(input, output) {
    output$rainbow <- renderggiraph(
      ggiraph(code = print(plotRainbow(input$subject1, c(input$cnt12, input$cnt22), input$cyear1)),
         width = 1, height_svg=6, width_svg=9)
    )
    output$time <- renderggiraph(
      ggiraph(code = print(plotTime(input$subject, c(input$cnt1, input$cnt2), c(input$se, input$trend), input$isco_cats)),
       width = 1, height_svg=5, width_svg=8)
      )
    output$rainbowTime <- renderggiraph(
      ggiraph(code = print(plotRainbowTime(input$subjectt1, c(input$cnt11, input$cnt21))),
       width =  0.8, height_svg=7, width_svg=9)                      
    )                                                           
    output$dots <- renderggiraph(                               
      ggiraph(code = print(plotDot(input$subjectt, input$cyear, c("cnt", input$isco_cats2))),
       width = 1,  height_svg=6, width_svg=9.5)                    
    )                                                           
})