Kullanıcının bir seçim yaptığını doğrula

Videodan hatırlayacağın üzere, seçim denetimlerin için varsayılan bir değer belirlemek genellikle iyi bir uygulamadır; ancak bir değer özellikle hariç tutulmalıysa, kullanıcılara uygulamanın sorunsuz çalışması için ne yapmaları gerektiğini anlatan özel bir hata mesajı gösterebilirsin.

Son egzersizde, pickerInput() için varsayılan bir değer olmadığında grafiğin sadece boş kaldığını görmüştük. Boş bir grafik yerine, bu egzersizde kullanıcılara uygulamanın çalışması için doğru seçimi yapmaları gerektiğini söyleyen özel bir hata mesajı göstereceksin.

Bu egzersiz

R ile Shiny Kullanarak Web Uygulamaları Geliştirme

kursunun bir parçasıdır

Kursu Görüntüle

Egzersiz talimatları

Kullanıcılara varsayılan olarak gösterilecek, zihinsel ve fiziksel sağlık için bir girdi seçmeleri gerektiğini belirten özel bir hata mesajı ekle.

Uygulamalı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

ui <- fluidPage(
  titlePanel("2014 Mental Health in Tech Survey"),
  sidebarPanel(
    sliderTextInput(
      inputId = "work_interfere",
      label = "If you have a mental health condition, do you feel that it interferes with your work?", 
      grid = TRUE,
      force_edges = TRUE,
      choices = c("Never", "Rarely", "Sometimes", "Often")
    ),
    checkboxGroupInput(
      inputId = "mental_health_consequence",
      label = "Do you think that discussing a mental health issue with your employer would have negative consequences?", 
      choices = c("Maybe", "Yes", "No"),
      selected = "Maybe"
    ),
    pickerInput(
      inputId = "mental_vs_physical",
      label = "Do you feel that your employer takes mental health as seriously as physical health?", 
      choices = c("Don't Know", "No", "Yes"),
      multiple = TRUE
    )    
  ),
  mainPanel(
    plotOutput("age")  
  )
)

server <- function(input, output, session) {
  output$age <- renderPlot({
    # MODIFY CODE BELOW: Add validation that user selected a 3rd input
    
    
    
    
    
    

    mental_health_survey %>%
      filter(
        work_interfere == input$work_interfere,
        mental_health_consequence %in% input$mental_health_consequence,
        mental_vs_physical %in% input$mental_vs_physical
      ) %>%
      ggplot(aes(Age)) +
      geom_histogram()
  })
}

shinyApp(ui, server)

Kodu Düzenle ve Çalıştır