diff --git a/reactive function/server.R b/reactive function/server.R
index dcee0f7..4ae1c64 100644
--- a/reactive function/server.R	
+++ b/reactive function/server.R	
@@ -21,7 +21,7 @@ shinyServer(
     })
     
     output$text2 <- renderText({ 
-      paste("Color of histogram is", input$radio)
+      paste("Color of histogram is", input$colour)
     })
     
     output$text3 <- renderText({ 
@@ -37,4 +37,4 @@ shinyServer(
     )    
   }
   )
- 
\ No newline at end of file
+