ช่วงการเลือกแบบมันเงาและตัวแปรตัวเลข (เป็นอินพุต) พร้อมแผ่นพับ

การเปลี่ยนแปลงเล็กน้อย:

1. เมื่อคุณสร้าง selectInput ตัวเลือก (และเลือก) จะต้องเป็นตัวพิมพ์เล็กเพื่อให้ตรงกับชื่อคอลัมน์ใน crime2

   selectInput("var", 
                 label = "Choose a variable to display",
                 choices = c("hour",
                             "number"),
                 selected = "hour"),
   

2. ภายในฟังก์ชัน getColor คุณต้องการวนซ้ำค่าใน data ไม่ใช่ input$var ดังนั้นคุณควรเรียก var แทนที่จะเป็น input$var ภายในฟังก์ชัน lambda

   getColor <- function(data){sapply(data, function(var){
         if(var< input$range[1]) {
           "green"
         } else if(var <= input$range[2]) {
           "orange"
         } else {
           "red"
         } })
       }
   

3. เมื่อคุณสร้างไอคอนจริงๆ คุณต้องการให้สร้างไอคอนตามค่าใน data ไม่ใช่ค่าในชุดข้อมูล crime2 ทั้งหมด

   icons <- awesomeIcons(
         icon = 'ios-close',
         iconColor = 'black',
         library = 'ion',
         markerColor = getColor(data)
       )
   

วางมันทั้งหมดเข้าด้วยกัน:

ui <- fluidPage(
  titlePanel("Unusual Observations"),

  sidebarLayout(
    sidebarPanel(
      helpText("Create maps with 
        information from the Crime Data"),

      selectInput("var", 
                  label = "Choose a variable to display",
                  choices = c("hour",
                              "number"),
                  selected = "hour"),

      sliderInput("range", 
                  label = "Range of interest:",
                  min = 0, max = 10, value = c(1, 2))
    ),

    mainPanel(leafletOutput("map"))
  )
)


server <- function(input, output) {
  output$map <- renderLeaflet({
    data <- switch(input$var,
                   "hour" = crime2$hour,
                   "number" = crime2$number)

    getColor <- function(data){sapply(data, function(var){
      if(var< input$range[1]) {
        "green"
      } else if(var <= input$range[2]) {
        "orange"
      } else {
        "red"
      } })
    }

    icons <- awesomeIcons(
      icon = 'ios-close',
      iconColor = 'black',
      library = 'ion',
      markerColor = getColor(data)
    )

    leaflet(crime2) %>%
      addTiles() %>%
      addAwesomeMarkers(~lon, ~lat, icon=icons)

  })
}

shinyApp(ui=ui, server=server)