valueUI<- function(id){
  ns<-NS(id)
  valueBoxOutput(ns("vbox"))
}

valueServer<-function(id, ttl="title",n,icn="credit-card",clr="red",symbl){
  moduleServer(
    id,
    function(input,output,session){
      #print(n())
        output$vbox<- renderValueBox({
          valueBox(
            paste0(n," ", symbl),
            ttl,
            icon=icon(icn),
            color = clr
          )
        })
    
      
    }
  )
}