Converter altura de polegadas para centímetros

No começo do capítulo, praticamos parar, atrasar e disparar apps. Esse é um padrão muito comum de programação no Shiny que permite otimizar seus apps para velocidade (e só executar novamente quando algo for atualizado e quando o usuário quiser rodar o app de novo.)

Neste exercício, você vai praticar alguns desses conceitos mais uma vez, para ter certeza de que entendeu mesmo. Em vez de calcular o IMC, este app converte a altura de polegadas para centímetros.

Este exercício faz parte do curso

Construindo Aplicações Web com Shiny em R

Ver curso

Instruções do exercício

Server: Atrase a execução do cálculo da altura em cm até que o usuário clique no botão 'Show height in cm'.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

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)

Editar e executar o código