Przeliczanie wzrostu z cali na centymetry
Wcześniej w tym rozdziale ćwiczyłeś/ćwiczyłaś wstrzymywanie, opóźnianie i wyzwalanie działania aplikacji. To bardzo powszechny wzorzec programowania w Shiny, który pozwala zoptymalizować aplikacje pod kątem wydajności – kod jest ponownie uruchamiany tylko wtedy, gdy coś się zmieni i użytkownik wyrazi chęć odświeżenia aplikacji.
W tym ćwiczeniu ponownie przećwiczysz te koncepcje, aby dobrze je utrwalić. Zamiast obliczać BMI, ta aplikacja przelicza wzrost podany w calach na centymetry.
To ćwiczenie jest częścią kursu
Tworzenie aplikacji internetowych z Shiny w R
Instrukcje do ćwiczenia
- Serwer: Opóźnij wykonanie obliczenia wzrostu w centymetrach do momentu, gdy użytkownik kliknie przycisk 'Show height in cm'.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
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)