inst/mod-templates/simpleplot/server.R

In nz-stefan/shinyscaffold: Create boilerplate code for Shiny web applications

###########################################################
# Server logic of the {{id-capital}} module
#
# Author: {{author}}
# Created: {{creation_date}}
###########################################################

# Module server function
{{id}}Module <- function(input, output, session) {

  # Initialisation ----------------------------------------------------------

  # obtain namespace
  ns <- session$ns

  # Plot --------------------------------------------------------------------

  output$plot <- renderHighchart({
    hchart(mtcars, "scatter", hcaes(x = hp, y = mpg))
  })
}