ÎncepețiÎncepe gratuit

Adaugă un titlu graficului: câmp de text

În Shiny, de îndată ce utilizatorul modifică valoarea unui input, Shiny pune imediat valoarea curentă la dispoziția ta în server, prin argumentul input al funcției server. Poți obține valoarea oricărui input folosind input$<inputId>.

Pentru a seta o valoare inițială implicită unui câmp de text, se folosește argumentul value.

Acest exercițiu face parte din cursul

Studii de caz: Construirea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Aplicația Shiny dată reprezintă grafic PIB-ul pe cap de locuitor față de speranța de viață a țărilor din setul de date gapminder. Sarcina ta este să adaugi un câmp de text care să le permită utilizatorilor să schimbe titlul graficului. Concret:

  • Adaugă un câmp de text în UI cu ID-ul "title", eticheta "Title" și valoarea implicită "GDP vs life exp".
  • În codul serverului, fă astfel încât titlul graficului să reflecte întotdeauna valoarea curentă a inputului title, plasând titlul în interiorul funcției ggtitle() (linia 24).

Exercițiu interactiv practic

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

# Load the ggplot2 package for plotting
library(ggplot2)

# Define UI for the application
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # Add a title text input
      ___(___, ___, ___)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    ggplot(gapminder, aes(gdpPercap, lifeExp)) +
      geom_point() +
      scale_x_log10() +
      # Use the input value as the plot's title
      ggtitle(___)
  })
}

# Run the application
shinyApp(ui = ui, server = server)
Editează și rulează codul