Convertește înălțimea din inch în centimetri

Mai devreme în acest capitol, am exersat oprirea, întârzierea și declanșarea aplicațiilor. Acesta este un tipar foarte comun de programare în Shiny, care îți permite să optimizezi aplicațiile pentru viteză – re-rulând codul doar când ceva se actualizează și utilizatorul dorește să repornească aplicația.

În acest exercițiu, vei exersa din nou aceste concepte, pentru a te asigura că le-ai înțeles cu adevărat. În loc să calculeze IMC-ul, această aplicație convertește înălțimea din inch în centimetri.

Acest exercițiu face parte din cursul

Crearea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Server: Întârzie executarea calculului înălțimii în centimetri până când utilizatorul apasă butonul 'Show height in cm'.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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)

Editează și rulează codul