revise summarise_each.R
move the webGL to shiny/