Chuyển đổi chiều cao từ inch sang centimet
Ở phần trước của chương, bạn đã luyện tập việc dừng, trì hoãn và kích hoạt ứng dụng. Đây là một mô hình lập trình rất phổ biến trong Shiny, giúp ứng dụng được tối ưu về tốc độ (và chỉ chạy lại khi có thứ gì đó được cập nhật và người dùng thực sự muốn chạy lại ứng dụng.)
Trong bài này, bạn sẽ thực hành lại một số khái niệm đó để đảm bảo bạn nắm vững. Thay vì tính BMI, ứng dụng này chuyển đổi chiều cao từ inch sang centimet.
Bài tập này là một phần của khóa học
Xây dựng ứng dụng web với Shiny trong R
Hướng dẫn bài tập
- Server: Trì hoãn việc tính chiều cao theo cm cho đến khi người dùng bấm nút 'Show height in cm'.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
ui <- fluidPage(
titlePanel("Inches to Centimeters Conversion"),
sidebarLayout(
sidebarPanel(
numericInput("height", "Height (in)", 60),
actionButton("show_height_cm", "Show height in cm")
),
mainPanel(
textOutput("height_cm")
)
)
)
server <- function(input, output, session) {
# MODIFY CODE BELOW: Delay the height calculation until
# the show button is pressed
rval_height_cm <- reactive({
input$height * 2.54
})
output$height_cm <- renderText({
height_cm <- rval_height_cm()
paste("Your height in centimeters is", height_cm, "cm")
})
}
shinyApp(ui = ui, server = server)