Konvertera längd från tum till centimeter

Tidigare i kapitlet övade vi på att stoppa, fördröja och trigga appar. Det här är ett mycket vanligt mönster i Shiny-programmering som gör det möjligt att optimera dina appar för hastighet – appen körs om bara när något uppdateras och användaren vill köra om den.

I den här övningen får du öva på de begreppen igen, för att verkligen befästa förståelsen. Istället för att beräkna BMI konverterar den här appen längd i tum till centimeter.

Den här övningen är en del av kursen

Bygg webbapplikationer med Shiny i R

Visa kurs

Övningsinstruktioner

Server: Fördröj beräkningen av längden i cm tills användaren klickar på knappen 'Show height in cm'.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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)

Redigera och kör kod