Leia o Texto 4 para responder à questão.
Texto 4
Em um computador com os softwares R e RStudio instalados, no RStudio foi instalado o pacote shiny. Um painel reativo foi gerado
utilizando os comandos a seguir.
> library(shiny)
> ui < − fluidPage( titlePanel("Minhas Notas"), textInput("txt", "Deixe seu comentário"), textOutput("txt_out"), sliderInput("Nota",
"selecione sua nota", min = 0, max = 10, value = 6.0, step = 1.0))
> server < − function(input,output){output$txt_out < − renderText({input$txt})}
> shinyApp(ui = ui , server = server)
