my bmi app code

library(shiny)


shinyUI(
    fluidPage(

    # Application title
    titlePanel("Body mass Index"),

    sidebarLayout(
        sidebarPanel(
            radioButtons("sex","Gender",c("Male"="1","Female"="0")),
            numericInput( "mass", 
                          "Mass(in Kilograms)",
                         min = 35,
                         max=200,
                         value = 50),        
            numericInput("height",
                        "Height (in Meters)",
                        min = 1,
                        max = 2.5,
                        value = 1.5),
            dateInput("date", "Date:"),
            submitButton('Submit')
        ),

     
        mainPanel(
            h3('Your BMI'),
            verbatimTextOutput("BMI"),
            img(src = "bmi.jpg")
        )
    )
))

shinyServer(
    function(input, output) {
        output$BMI <-renderText((input$mass/(input$height)^2))

  })