BMI 구하기
#install.packages("shiny")
library(shiny)
ui <- fluidPage(titlePanel("BMI"),
sidebarPanel(numericInput(inputId = "weight", label = "Weight(kg)", value = 70, min = 0, max = 300),
numericInput(inputId = "height", label = "Height(cm)", value = 170, min = 0, max = 200),
submitButton(text = "Submit")),
mainPanel(h3("Results"),
h4("Weight"),
verbatimTextOutput("weight"),
h4("Height"),
verbatimTextOutput("height"),
h4("BMI"),
verbatimTextOutput("BMI")))
server <- function(input, output){
bmi_calcuation <- function(weight, height){
weight / (height/100)^2
}
output$weight <- renderPrint({input$weight})
output$height <- renderPrint({input$height})
output$BMI <- renderPrint({bmi_calcuation(input$weight, input$height)})
}
shinyApp(ui = ui, server = server)