library(shiny)


shinyServer(function(input, output) {



  output$myhist <- renderPlot({
    colm<-as.numeric(input$var)
    hist(HNP[,colm],col=input$color,breaks=seq(0,max(HNP[,colm]),l=input$bins+1),
         ,main="Babies' death rate (1/1000)",xlab=names(HNP[colm]),ylab="death rate"

 )})})