BaşlayınÜcretsiz Başlayın

Düzgün bir eğri uydur: onay kutusu girişi

Metin ve sayısal girdilerden farklı olarak, onay kutusu girdileri yalnızca iki olası değere sahiptir: TRUE veya FALSE. Kullanıcı bir onay kutusunu işaretlediğinde girişin değeri TRUE olur; kutu işaretli değilse FALSE döner.

Başlangıç değerini tanımlayan checkboxInput() fonksiyonunun value parametresinin yalnızca TRUE veya FALSE olarak ayarlanabileceğine dikkat et.

Son egzersizdeki Shiny uygulamasının kodu bazı düzenlemelerle sağlandı. Artık renderPlot() içindeki ggplot grafik nesnesi p adlı bir değişkene atanıyor.

Bu egzersiz

Vaka Çalışmaları: R ile Shiny Kullanarak Web Uygulamaları Geliştirme

kursunun bir parçasıdır
Kursu Görüntüle

Egzersiz talimatları

Görevin, işaretlendiğinde grafiğe en iyi uyum doğrusunu ekleyecek bir onay kutusu girişi eklemek. Özellikle:

  • UI'a kimliği "fit", etiketi "Add line of best fit" olan ve başlangıç durumu işaretsiz olan bir onay kutusu ekle.
  • Giriş işaretlendiğinde grafiğe en iyi uyum doğrusunun eklenmesi için sunucuya kod ekle. En iyi uyum doğrusunu ekleme kodu sağlanmıştır (satır 26).

Uygulamalı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

# Define UI for the application
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("title", "Title", "GDP vs life exp"),
      numericInput("size", "Point size", 1, 1),
      # Add a checkbox for line of best fit
      ___
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    p <- ggplot(gapminder, aes(gdpPercap, lifeExp)) +
      geom_point(size = input$size) +
      scale_x_log10() +
      ggtitle(input$title)
    
    # When the "fit" checkbox is checked, add a line
    # of best fit
    if (___) {
      p <- p + geom_smooth(method = "lm")
    }
    p
  })
}

# Run the application
shinyApp(ui = ui, server = server)
Kodu Düzenle ve Çalıştır