errUI <- function(id) {
  ns <- NS(id)
  tagList(highchartOutput(ns("errchart")))
}

errServer <-
  function(id,
           filepath="./contacts/summary", filename="Error_Contact", country) {
    moduleServer(id,
                 function(input, output, session) {
                   ns <- session$ns
                   
                   output$errchart <- renderHighchart({
                     error.function(filepath, filename, country)
                   })
                   
                 })
    
  }