krishnaiitd

diabetesRisk <- function(glucose) glucose / 200

shinyServer(
  function(input, output) {
    output$inputValue <- renderPrint({input$glucose})
    output$prediction <- renderPrint({diabetesRisk(input$glucose)})
  }
)

krishnaiitd

mysql> select * from testuser;
+------+--------------+
| id   | code         |
+------+--------------+
|    1 | 232          |
|    2 | adfksa121dfk |
|    3 | 12sdf        |
|    4 | dasd231      |
|    5 | 897          |
+------+--------------+