【发布时间】：2018-11-07 07:14:10
【问题描述】：
我一直在尝试创建显示事件位置的传单地图。但到目前为止，我还无法创建它。地图应该对侧边栏面板上的“日期”和“现场”变量做出反应。这里，On_site 只取二进制值：True/False
Dataframe 包含以下变量：incident_number、Address、latitude、longitude、Date、On_site
ui.R
library(shiny)
library(leaflet)
library(tidyverse)
library(DT)
library(dplyr)
# Dataframe
incident <- read.csv('incident.csv')
ui <- fluidPage(
br(),
# Sidebar layout with a input and output definitions
sidebarLayout(
# Inputs:
sidebarPanel(
# Text instructions
HTML(paste("Customize the map by:")),
dateInput("Date", label = "Date", value = "10/15/2018",
min = "2018-10-03", max = "2018-11-01"),
hr(),
fluidRow(column(3, verbatimTextOutput("value"))),
selectInput("On_site", label = "On site",
choices = unique(incident$On_site)),
),
# Outputs:
mainPanel(
# leaflet map
leafletOutput("mymap"),
# Show data table
dataTableOutput(outputId = "incident_table"),
br()
)
)
)
server.R
# Define server function
server <- function(input, output) {
# Create map
filtered <- reactive({
incident %>%
filter(Date == input$Date & On_site == input$On_site)
})
output$mymap <- renderLeaflet({
leaflet() %>% addTiles() %>%
addProviderTiles(providers$Esri.NatGeoWorldMap) %>%
fitBounds(~min(longitude), ~min(latitude), ~max(longitude), ~max(latitude))
})
observe({
leafletProxy("mymap") %>%
clearShapes()%>%
clearPopups()%>%
clearMarkers()%>%
addMarkers(lat = filtered()$latitude,
lng = filtered()$longitude,
popup = ~paste0("<strong>", filtered()$incident_number, "</strong><br/>","On_site: ", filtered()$On_site, "<br />")
)
})
# Create data table
output$incident_detail <- DT::renderDataTable({
filtered()
})
}
# Create a Shiny app object
shinyApp(ui = ui, server = server)
数据帧的前几条记录：
结构（列表（事件编号 = 结构（c（588L，567L，495L， 571L、532L、1227L、561L、582L、536L、569L、621L、664L、530L、 525L, 566L, 572L, 485L, 1221L, 528L, 585L), .Label = c("10-95413", “18-0089255”、“18-0092103”、“18-090383”、“18-090968”、“18-091582”、 “18-092639”、“18-092642”、“18-76029”、“18-87045”、“18-88746”、 “18-88784”、“18-88786”、“18-88802”、“18-88839”、“18-88845”、“18-88846”、 “18-88889”、“18-88907”、“18-88913”、“18-88919”、“18-88920”、“18-88927”、 “18-88932”、“18-88941”、“18-88949”、“18-88952”、“18-88960”、“18-88964”、 “18-88968”、“18-88980”、“18-88982”、“18-88984”、“18-88987”、“18-88990”、 “18-88995”、“18-88996”、“18-89000”、“18-89005”、“18-89009”、“18-89020”、 “18-89023”、“18-89029”、“18-89031”、“18-89034”、“18-89042”、“18-89045”、 “18-89046”、“18-89059”、“18-89063”、“18-89071”、“18-89072”、“18-89074”、 “18-89077”、“18-89091”、“18-89094”、“18-89096”、“18-89099”、“18-89107”、 “18-89133”、“18-89143”、“18-89148”、“18-89149”、“18-89152”、“18-89159”、 “18-89161”、“18-89166”、“18-89167”、“18-89176”、“18-89187”、“18-89195”、 “18-89200”、“18-89202”、“18-89213”、“18-89218”、“18-89226”、“18-89233”、 “18-89246”、“18-89247”、“18-89260”、“18-89273”、“18-89274”、“18-89279”、 “18-89286”、“18-89294”、“18-89296”、“18-89298”、“18-89313”、“18-89316”、 “18-89317”、“18-89318”、“18-89319”、“18-89320”、“18-89326”、“18-89333”、 “18-89338”、“18-89339”、“18-89340”、“18-89342”、“18-89344”、“18-89350”、 “18-89354”、“18-89355”、“18-89358”、“18-89359”、“18-89364”、“18-89365”、 “18-89378”、“18-89384”、“18-89390”、“18-89394”、“18-89399”、“18-89406”、 “18-89407”、“18-89423”、“18-89463”、“18-89472”、“18-89476”、“18-89494”、 “18-89495”、“18-89502”、“18-89506”、“18-89509”、“18-89511”、“18-89512”、 “18-89513”、“18-89520”、“18-89522”、“18-89533”、“18-89559”、“18-89564”、 “18-89565”、“18-89567”、“18-89569”、“18-89573”、“18-89577”、“18-89580”、 “18-89585”、“18-89591”、“18-89596”、“18-89599”、“18-89605”、“18-89607”、 “18-89610”、“18-89614”、“18-89616”、“18-89619”、“18-89620”、“18-89625”、 “18-89631”、“18-89633”、“18-89634”、“18-89639”、“18-89645”、“18-89646”、 “18-89649”、“18-89651”、“18-89663”、“18-89664”、“18-89666”、“18-89667”、 “18-89692”、“18-89694”、“18-89700”、“18-89703”、“18-89704”、“18-89709”、 “18-89716”、“18-89718”、“18-89725”、“18-89733”、“18-89750”、“18-89762”、 “18-89764”、“18-89777”、“18-89781”、“18-89792”、“18-89800”、“18-89802”、 “18-89809”、“18-89815”、“18-89824”、“18-89835”、“18-89838”、“18-89843”、 “18-89859”、“18-89866”、“18-89870”、“18-89873”、“18-89874”、“18-89885”、 “18-89908”、“18-89913”、“18-89925”、“18-89933”、“18-89942”、“18-89944”、 “18-89946”、“18-89948”、“18-89950”、“18-89954”、“18-89958”、“18-89976”、 “18-89991”、“18-90004”、“18-90008”、“18-90023”、“18-90032”、“18-90035”、 “18-90053”、“18-90062”、“18-90066”、“18-90067”、“18-90069”、“18-90074”、 “18-90079”、“18-90115”、“18-90117”、“18-90119”、“18-90122”、“18-90124”、 “18-90126”、“18-90127”、“18-90128”、“18-90130”、“18-90132”、“18-90138”、 “18-90154”、“18-90158”、“18-90159”、“18-90160”、“18-90170”、“18-90227”、 “18-90229”、“18-90230”、“18-90242”、“18-90246”、“18-90248”、“18-90250”、 “18-90251”、“18-90252”、“18-90254”、“18-90257”、“18-90273”、“18-90283”、 “18-90285”、“18-90302”、“18-90309”、“18-90310”、“18-90333”、“18-90349”、 “18-90362”、“18-90364”、“18-90394”、“18-90395”、“18-90408”、“18-90410”、 “18-90416”、“18-90417”、“18-90425”、“18-90435”、“18-90440”、“18-90449”、 “18-90450”、“18-90464”、“18-90474”、“18-90475”、“18-90479”、“18-90483”、 “18-90487”、“18-90492”、“18-90495”、“18-90498”、“18-90504”、“18-90509”、 “18-90518”、“18-90520”、“18-90522”、“18-90529”、“18-90539”、“18-90540”、 “18-90554”、“18-90559”、“18-90569”、“18-90579”、“18-90580”、“18-90582”、 “18-90584”、“18-90586”、“18-90588”、“18-90598”、“18-90606”、“18-90607”、 “18-90612”、“18-90624”、“18-90643”、“18-90653”、“18-90656”、“18-90658”、 “18-90660”、“18-90662”、“18-90663”、“18-90668”、“18-90669”、“18-90672”、 “18-90676”、“18-90677”、“18-90680”、“18-90686”、“18-90687”、“18-90688”、 “18-90690”、“18-90693”、“18-90695”、“18-90698”、“18-90707”、“18-90708”、 “18-90710”、“18-90726”、“18-90735”、“18-90736”、“18-90737”、“18-90738”、 “18-90751”、“18-90752”、“18-90753”、“18-90755”、“18-90757”、“18-90759”、 “18-90772”、“18-90776”、“18-90778”、“18-90790”、“18-90804”、“18-90809”、 “18-90820”、“18-90821”、“18-90824”、“18-90825”、“18-90826”、“18-90833”、 “18-90836”、“18-90837”、“18-90842”、“18-90844”、“18-90847”、“18-90849”、 “18-90850”、“18-90860”、“18-90862”、“18-90878”、“18-90894”、“18-90900”、 “18-90929”、“18-90932”、“18-90942”、“18-90959”、“18-90964”、“18-90966”、 “18-90967”、“18-90969”、“18-90970”、“18-90971”、“18-90977”、“18-90985”、 “18-90993”、“18-90994”、“18-91005”、“18-91028”、“18-91044”、“18-91046”、 “18-91056”、“18-91062”、“18-91073”、“18-91080”、“18-91090”、“18-91095”、 “18-91117”、“18-91118”、“18-91122”、“18-91124”、“18-91131”、“18-91132”、 “18-91134”、“18-91135”、“18-91140”、“18-91142”、“18-91148”、“18-91151”、 “18-91155”、“18-91163”、“18-91188”、“18-91202”、“18-91203”、“18-91223”、 “18-91225”、“18-91258”、“18-91262”、“18-91263”、“18-91264”、“18-91266”、 “18-91267”、“18-91270”、“18-91276”、“18-91277”、“18-91278”、“18-91290”、 “18-91291”、“18-91297”、“18-91310”、“18-91311”、“18-91314”、“18-91329”、 “18-91333”、“18-91337”、“18-91343”、“18-91350”、“18-91353”、“18-91360”、 “18-91374”、“18-91380”、“18-91395”、“18-91396”、“18-91402”、“18-91407”、 “18-91412”、“18-91415”、“18-91422”、“18-91426”、“18-91431”、“18-91445”、 “18-91451”、“18-91459”、“18-91472”、“18-91485”、“18-91489”、“18-91509”、 “18-91536”、“18-91548”、“18-91554”、“18-91557”、“18-91565”、“18-91566”、 “18-91568”、“18-91573”、“18-91575”、“18-91581”、“18-91587”、“18-91602”、 “18-91608”、“18-91614”、“18-91633”、“18-91648”、“18-91654”、“18-91657”、 “18-91661”、“18-91662”、“18-91666”、“18-91670”、“18-91678”、“18-91679”、 “18-91682”、“18-91686”、“18-91694”、“18-91696”、“18-91699”、“18-91702”、 “18-91704”、“18-91710”、“18-91712”、“18-91719”、“18-91724”、“18-91726”、 “18-91733”、“18-91734”、“18-91743”、“18-91748”、“18-91757”、“18-91758”、 “18-91761”、“18-91767”、“18-91778”、“18-91801”、“18-91802”、“18-91803”、 “18-91805”、“18-91813”、“18-91815”、“18-91816”、“18-91818”、“18-91820”、 “18-91826”、“18-91836”、“18-91841”、“18-91851”、“18-91860”、“18-91865”、 “18-91875”、“18-91891”、“18-91898”、“18-91902”、“18-91904”、“18-91907”、 “18-91911”、“18-91912”、“18-91920”、“18-91921”、“18-91922”、“18-91923”、 “18-91924”、“18-91930”、“18-91934”、“18-91935”、“18-91937”、“18-91945”、 “18-91946”、“18-91953”、“18-91982”、“18-92005”、“18-92006”、“18-92016”、 “18-92022”、“18-92024”、“18-92036”、“18-92043”、“18-92045”、“18-92049”、 “18-92050”、“18-92051”、“18-92053”、“18-92068”、“18-92078”、“18-92114”、 “18-92117”、“18-92118”、“18-92132”、“18-92133”、“18-92166”、“18-92169”、 “18-92171”、“18-92172”、“18-92174”、“18-92182”、“18-92183”、“18-92195”、 “18-92206”、“18-92232”、“18-92261”、“18-92268”、“18-92272”、“18-92289”、 “18-92299”、“18-92306”、“18-92311”、“18-92321”、“18-92326”、“18-92334”、 “18-92337”、“18-92339”、“18-92343”、“18-92344”、“18-92345”、“18-92349”、 “18-92352”、“18-92353”、“18-92357”、“18-92362”、“18-92364”、“18-92368”、 “18-92371”、“18-92375”、“18-92376”、“18-92379”、“18-92386”、“18-92387”、 “18-92391”、“18-92404”、“18-92410”、“18-92412”、“18-92429”、“18-92440”、 “18-92441”、“18-92444”、“18-92447”、“18-92459”、“18-92475”、“18-92476”、 “18-92482”、“18-92484”、“18-92485”、“18-92486”、“18-92499”、“18-92505”、 “18-92507”、“18-92511”、“18-92521”、“18-92523”、“18-92531”、“18-92541”、 “18-92556”、“18-92557”、“18-92565”、“18-92566”、“18-92597”、“18-92602”、 “18-92610”、“18-92611”、“18-92613”、“18-92615”、“18-92619”、“18-92620”、 “18-92621”、“18-92622”、“18-92625”、“18-92626”、“18-92632”、“18-92633”、 “18-92635”、“18-92641”、“18-92644”、“18-92645”、“18-92649”、“18-92651”、 “18-92653”、“18-92654”、“18-92656”、“18-92659”、“18-92660”、“18-92664”、 “18-92665”、“18-92684”、“18-92702”、“18-92714”、“18-92715”、“18-92721”、 “18-92723”、“18-92735”、“18-92742”、“18-92749”、“18-92757”、“18-92774”、 “18-92777”、“18-92795”、“18-92811”、“18-92813”、“18-92814”、“18-92817”、 “18-92822”、“18-92823”、“18-92827”、“18-92829”、“18-92843”、“18-92848”、 “18-92858”、“18-92865”、“18-92866”、“18-92878”、“18-92883”、“18-92903”、 “18-92914”、“18-92915”、“18-92929”、“18-92933”、“18-92937”、“18-92946”、 “18-92947”、“18-92948”、“18-92950”、“18-92954”、“18-92955”、“18-92956”、 “18-92961”、“18-92962”、“18-92970”、“18-92977”、“18-92991”、“18-93004”、 “18-93009”、“18-93014”、“18-93020”、“18-93025”、“18-93029”、“18-93033”、 “18-93034”、“18-93039”、“18-93083”、“18-93105”、“18-93108”、“18-93112”、 “18-93116”、“18-93119”、“18-93124”、“18-93128”、“18-93134”、“18-93137”、 “18-93140”、“18-93143”、“18-93156”、“18-93157”、“18-93159”、“18-93164”、 “18-93167”、“18-93168”、“18-93179”、“18-93184”、“18-93185”、“18-93196”、 “18-93224”、“18-93226”、“18-93229”、“18-93231”、“18-93232”、“18-93234”、 “18-93235”、“18-93240”、“18-93244”、“18-93245”、“18-93253”、“18-93255”、 “18-93256”、“18-93259”、“18-93293”、“18-93306”、“18-93316”、“18-93324”、 “18-93343”、“18-93345”、“18-93354”、“18-93357”、“18-93363”、“18-93365”、 “18-93378”、“18-93381”、“18-93388”、“18-93391”、“18-93408”、“18-93415”、 “18-93444”、“18-93446”、“18-93449”、“18-93451”、“18-93462”、“18-93464”、 “18-93477”、“18-93485”、“18-93493”、“18-93506”、“18-93524”、“18-93529”、 “18-93530”、“18-93532”、“18-93534”、“18-93536”、“18-93537”、“18-93538”、 “18-93539”、“18-93541”、“18-93542”、“18-93544”、“18-93545”、“18-93551”、 “18-93559”、“18-93569”、“18-93573”、“18-93579”、“18-93583”、“18-93589”、 “18-93592”、“18-93599”、“18-93602”、“18-93605”、“18-93606”、“18-93607”、 “18-93609”、“18-93614”、“18-93617”、“18-93621”、“18-93628”、“18-93630”、 “18-93635”、“18-93644”、“18-93645”、“18-93646”、“18-93650”、“18-93662”、 “18-93669”、“18-93673”、“18-93675”、“18-93680”、“18-93694”、“18-93711”、 “18-93715”、“18-93716”、“18-93719”、“18-93724”、“18-93728”、“18-93731”、 “18-93737”、“18-93753”、“18-93754”、“18-93755”、“18-93770”、“18-93774”、 “18-93777”、“18-93789”、“18-93804”、“18-93820”、“18-93840”、“18-93843”、 “18-93846”、“18-93848”、“18-93852”、“18-93862”、“18-93867”、“18-93868”、 “18-93873”、“18-93878”、“18-93895”、“18-93913”、“18-93915”、“18-93916”、 “18-93936”、“18-93937”、“18-93945”、“18-93951”、“18-93956”、“18-93965”、 “18-93979”、“18-93980”、“18-93985”、“18-93991”、“18-93992”、“18-94005”、 “18-94021”、“18-94028”、“18-94030”、“18-94035”、“18-94039”、“18-94052”、 “18-94055”、“18-94062”、“18-94072”、“18-94082”、“18-94105”、“18-94121”、 “18-94125”、“18-94143”、“18-94159”、“18-94176”、“18-94182”、“18-94186”、 “18-94189”、“18-94190”、“18-94195”、“18-94203”、“18-94204”、“18-94206”、 “18-94229”、“18-94253”、“18-94268”、“18-94274”、“18-94290”、“18-94292”、 “18-94293”、“18-94332”、“18-94334”、“18-94343”、“18-94347”、“18-94372”、 “18-94373”、“18-94389”、“18-94392”、“18-94393”、“18-94409”、“18-94414”、 “18-94427”、“18-94436”、“18-94438”、“18-94448”、“18-94481”、“18-94485”、 “18-94529”、“18-94530”、“18-94548”、“18-94558”、“18-94561”、“18-94572”、 “18-94576”、“18-94580”、“18-94583”、“18-94591”、“18-94598”、“18-94617”、 “18-94621”、“18-94640”、“18-94641”、“18-94643”、“18-94671”、“18-94673”、 “18-94677”、“18-94678”、“18-94680”、“18-94685”、“18-94690”、“18-94695”、 “18-94697”、“18-94701”、“18-94704”、“18-94707”、“18-94739”、“18-94748”、 “18-94762”、“18-94770”、“18-947743”、“18-94781”、“18-94784”、 “18-94792”、“18-94793”、“18-94800”、“18-94803”、“18-94809”、“18-94813”、 “18-94822”、“18-94825”、“18-94841”、“18-94842”、“18-94845”、“18-94850”、 “18-94851”、“18-94853”、“18-94855”、“18-94859”、“18-94860”、“18-94865”、 “18-94866”、“18-94868”、“18-94874”、“18-94882”、“18-94883”、“18-94884”、 “18-94886”、“18-94897”、“18-94908”、“18-94923”、“18-94958”、“18-94988”、 “18-94990”、“18-94993”、“18-94997”、“18-95001”、“18-95028”、“18-95037”、 “18-95041”、“18-95045”、“18-95049”、“18-95050”、“18-95054”、“18-95056”、 “18-95059”、“18-95062”、“18-95063”、“18-95064”、“18-95072”、“18-95074”、 “18-95076”、“18-95093”、“18-95099”、“18-95100”、“18-95103”、“18-95107”、 “18-95111”、“18-95113”、“18-95132”、“18-95133”、“18-95134”、“18-95138”、 “18-95139”、“18-95147”、“18-95161”、“18-95167”、“18-95168”、“18-95172”、 “18-95175”、“18-95178”、“18-95181”、“18-95183”、“18-95203”、“18-95207”、 “18-95208”、“18-95210”、“18-95211”、“18-95214”、“18-95217”、“18-95218”、 “18-95222”、“18-95224”、“18-95225”、“18-95232”、“18-95235”、“18-95279”、 “18-95287”、“18-95294”、“18-95304”、“18-95307”、“18-95315”、“18-95322”、 “18-95324”、“18-95328”、“18-95336”、“18-95343”、“18-95346”、“18-95347”、 “18-95348”、“18-95354”、“18-95361”、“18-95363”、“18-95366”、“18-95379”、 “18-95398”、“18-95416”、“18-95417”、“18-95427”、“18-95428”、“18-95440”、 “18-95462”、“18-95479”、“18-95498”、“18-95515”、“18-95518”、“18-95519”、 “18-95520”、“18-95527”、“18-95544”、“18-95546”、“18-95548”、“18-95551”、 “18-95555”、“18-95559”、“18-95563”、“18-95565”、“18-95570”、“18-95591”、 “18-95602”、“18-95617”、“18-95627”、“18-95642”、“18-95644”、“18-95648”、 “18-95653”、“18-95658”、“18-95659”、“18-95661”、“18-95665”、“18-95671”、 “18-95672”、“18-95673”、“18-95689”、“18-95706”、“18-95715”、“18-95722”、 “18-95725”、“18-95727”、“18-95728”、“18-95732”、“18-95733”、“18-95737”、 “18-95742”、“18-95773”、“18-95775”、“18-95790”、“18-95792”、“18-95798”、 “18-95814”、“18-95816”、“18-95817”、“18-95822”、“18-95841”、“18-95844”、 “18-95868”、“18-95873”、“18-95875”、“18-95878”、“18-95891”、“18-95909”、 “18-95913”、“18-95922”、“18-95927”、“18-95954”、“18-95957”、“18-95965”、 “18-95967”、“18-95990”、“18-96009”、“18-96011”、“18-96016”、“18-96040”、 “18-96051”、“18-96057”、“18-96101”、“18-96157”、“18-96167”、“18-96178”、 “18-96181”、“18-96187”、“18-96201”、“18-96230”、“18-96240”、“18-96263”、 “18-96307”、“18-96338”、“18-96353”、“18-96396”、“18-96400”、“18-96477”、 “18-96480”、“18-96500”、“18-96511”、“18-96514”、“18-96521”、“18-96525”、 “18-96577”、“18-96592”、“18-96613”、“18-96617”、“18-96621”、“18-96624”、 “18-96651”、“18-96654”、“18-96685”、“18-96704”、“18-96710”、“18-96722”、 “18-96731”、“18-96736”、“18-96749”、“18-96750”、“18-96759”、“18-96762”、 “18-96768”、“18-96787”、“18-96789”、“18-96799”、“18-96834”、“18-96886”、 “18-96907”、“18-97034”、“18-97037”、“18-97063”、“18-97076”、“18-97120”、 “18-97141”、“18-97224”、“18-97232”、“18-97233-HR”、“18-97255”、 “18-97296”、“18-97321”、“18-97331”、“18-97341”、“18-97345”、“18-97349”、 “18-97360”、“18-97396”、“18-97420”、“18-97424”、“18-97443”、“18-97445”、 “18-97455”、“18-97563”、“18-97572”、“18-97575”、“18-97610”、“180089582”、 “180089597”、“180089602”、“180089626”、“180089641”、“180089642”、 “180089643”、“180089655”、“180089731”、“180089985”、“180090166”、 “180090226”、“180090241”、“180090253”、“180090255”、“180090353”、 “180090576”、“180090623”、“180090692”、“180090745”、“180090827”、 “180091123”、“180091392”、“180091404”、“180091405”、“180091457”、 “180091465”、“180091474”、“180091512”、“180091683”、“180091687”、 “180091717”、“180091725”、“180091738”、“180091822”、“180091829”、 “180091963”、“180091978”、“180091980”、“180091996”、“180092019”、 “180092134”、“180092141”、“180092223”、“180092246”、“180092265”、 “180092274”、“180092277”、“180092348”、“180092350”、“180092354”、 “180092355”、“180092366”、“180092434”、“180092437”、“180092473”、 “180092509”、“180092513”、“180092549”、“180092562”、“180092585”、 “180092596”、“180092624”、“180092697”、“180092838”、“180092840”、 “180093062”、“180093130”、“180093133”、“180093155”、“180093201”、 “180093211”、“180093225”、“180093368”、“180093385”、“180093411”、 “180093432”、“180093441”、“180093531”、“180093550”、“180093598”、 “180093618”、“180093641”、“180093648”、“180093649”、“180093661”、 “180093665”、“180093666”、“180093681”、“180093684”、“180093688”、 “180093690”、“180093744”、“180093750”、“180093764”、“180093766”、 “180093767”、“180093772”、“180093807”、“180093814”、“180093822”、 “180093882”、“180093917”、“180093938”、“180093966”、“180093969”、 “180093994”、“180094000”、“180094008”、“180094033”、“180094051”、 “180094144”、“180094181”、“180094249”、“180094278”、“180094297”、 “180094355”、“180094359”、“180094382”、“180094474”、“180094511”、 “180094645”、“180094709”、“180094738”、“180094768”、“180094795”、 “180094806”、“180094881”、“180094892”、“180094965”、“180094991”、 “180094996”、“180095006”、“180095129”、“180095131”、“180095141”、 “180095148”、“180095170”、“180095185”、“180095202”、“180095216”、 “180095221”、“180095246”、“180095274”、“180095278”、“180095342”、 “180095353”、“180095389”、“180095405”、“180095434”、“180095480”、 “180095499”、“180095502”、“180095503”、“180095526”、“180095550”、 “180095569”、“180095618”、“180095679”、“180095688”、“180095702”、 “180095757”、“180095760”、“180095761”、“180095782”、“180095797”、 “180095815”、“180095829”、“180095884”、“180095896”、“180095906”、 “180095920”、“180096049”、“180096074”、“180096095”、“180096131”、 “180096410”、“180096475”、“180096490”、“180096491”、“180096558”、 “180096689”、“180096727”、“180096752”、“180096756”、“180096776”、 “180096893”、“180097019”、“180097469”、“180097673”、“18090411”、 “18090445”、“18092944”、“18096969”）、class= “因子”）、地址 = 结构（c（410L、 454L、11L、28L、26L、107L、272L、45L、213L、234L、158L、339L、 454L, 146L, 370L, 264L, 401L, 234L, 144L, 126L), .Label = c("", “121”、“183”、“20”、“21ST”、“22ND”、“23RD”、“24TH”、“25TH”、“28TH”、 “28日”、“2日”、“30”、“33日”、“4日”、“7日”、“820”、“820东”、 “820 N FWY”、“8TH”、“学院”、“机场”、“艾伦”、“联盟网关”、 “阿尔斯顿”、“阿尔塔梅尔”、“阿尔塔梅萨”、“阿尔塔梅萨”、“阿蒙卡特”、 “安德森”、“安德烈斯”、“乔木”、“乔木”、“爱丽儿”、“灰草甸”、 “AVE H”、“AVE N”、“AVONDALE HASLET”、“AVRIL CT N”、“AZLE”、“BAILEY BOSWELL”、 “鲍德温”、“巴尔的摩”、“椴木”、“海滩”、“贝尔纳普”、“本布鲁克”、 “BENBROOK HWY”、“BERKE”、“BERRY”、“BEVERLY”、“BIDDISON”、“BIRDS EYE”、 “BISHOP”、“BLEDSOE”、“BLUE MOUND”、“BOAT CLUB”、“BOAZ”、“BOMAR”、 “轰炸机”、“邦兹牧场”、“邦妮·布雷”、“布伦特伍德楼梯”、“布伦特伍德楼梯”、 “桥”，“布里奇伍德”，“布莱恩特·欧文”，“布莱恩特·欧文北”， “布莱恩特·欧文 RD N”、“白金汉”、“巴特勒”、“卡尔霍恩”、“加利福尼亚”、 “CALMONT”、“CAMBRIDGE”、“CAMELOT”、“CAMERON”、“CAMP BOWIE”、“CAMP BOWIE WEST”、 “CAMPUS”、“CAYLOR”、“CENTREPORT”、“CHAPEL CREEK”、“CHERRY”、“CHRISTOPHER”、 “克莱尔蒙特”、“克利本”、“克利夫兰-吉布斯”、“克利福德”、“克利福德中心”、 “克利福德中心”、“大学”、“科林”、“商业”、“厨师”、 “乡村小溪”、“克雷格”、“克雷格东环 820 NB”、“克雷文斯”、 “CRENSHAW”、“CROCKETT”、“CROMWELL MARINE CREEK”、“CROWLEY”、“CROWLEY CLEBURNE”、 “皇冠橡树”、“CRUMP”、“水晶湖”、“DAGGETT”、“道尔顿”、“DE COSTA”、 “DECATUR”、“DEVONSHIRE”、“DILLOW”、“DILWORTH”、“DONNELLY”、“荷兰分公司”、 “E IH 20”、“E LONG AVE”、“E LOOP 820 NB”、“EAST”、“EAST FREEWAY”、 “EAST FRWY”、“EAST FWY EB”、“EAST FWY WB”、“EAST LOOP”、“EAST LOOP 820”、 “东环 820 NB SR”、“东环 820 北”、“东环 820 北 FWY SB”、 “东环 820 S”、“东环 820 南”、“东环 820 南 FWY NB”、 “东环 820 南 FWY SB”、“东环 820 南 N/B”、“东环 820 南 NB RAMEY”、 “东环 820 南 SR SB”、“EASTCHASE”、“EASTCHASE IH 30 EB”、 “埃德维尔”、“EDGECLIFF”、“爱德华兹牧场”、“EL CAMPO”、“ELLIS”、 “EPHRIHAM”、“ESTRELLA”、“EVANS”、“EVERMAN”、“FAA”、“FELIX”、“FM 1220”、 “FOCH”、“FORBES”、“森林山”、“森林公园”、“FREEWAY”、“FRWY”、 “FRYE”、“FWY”、“FWY NB”、“FWY SB”、“FWY WB”、“GAMBRELL”、“GARDEN ACRES”、 “花园泉”、“GENDY”、“戈达德”、“金三角”、“格拉夫顿”、 “GRANBURY”、“GRAND”、“GRANITE CREEK”、“GRAVEL”、“GRAYSON”、“GREEN OAKS”、 “绿岭”、“绿带”、“格罗夫”、“汉德利”、“汉娜牧场”、 “哈蒙”、“哈蒙德”、“哈灵顿”、“亨菲尔”、“亨德森”、“亨斯利”、 “HERITAGE TRACE”、“HIGH”、“HIGHWAY 114”、“HIGHWAY 199 ACCESS”、 “HIGHWAY 287”、“HIGHWAY 360”、“休斯顿”、“HULEN”、“HULEN SB”、 "HWY 183", "HWY 199 ACCESS", "HWY 287 & 81", "HWY 360", "HWY 360 NB", “HWY157”、“I-20”、“I 35 SERVICE ROAD”、“I30”、“I35”、“IH-20 W/B”、 “IH 20”、“IH 20 EB”、“IH 20 EB 东环路 820 南 NB”、“IH 20 EB HULEN”、 “IH 20 EB IH 35W NB”、“IH 20 FWY WB”、“IH 20 WB”、“IH 20 WB GRANBURY”、 “IH 20 WB OAK GROVE”、“IH 30”、“IH 30 EB US 287 SB”、“IH 30 WB EXIT COOKS RAMP”、 “IH 30 WB 大学”、“IH 35W”、“IH 35W SB IH 30 EB”、“IH 35W SB IH 30 WB”、 “IH 35W SB NE LOOP 820 EB”、“IH 35W SB 伦登克劳利”、“IH20”、 “IH20 FWY”、“IH30 EB US287 SB RAMP”、“IH35 SB E 1H30 EB RAMP”、 “IM TERRELL”、“独立”、“国际”、“国际 SB ST HWY 183 EB”、 “州际”、“J BOAZ”、“JACKSBORO”、“JAMES”、“JAMES AVE”、“JANICE”、 “詹宁斯”、“杰西米”、“吉姆·赖特高速公路”、“约翰·怀特”、“约翰·怀特 RD N”、 “JONES”、“JUDD”、“KELLER HASLET”、“KELLER HICKS”、“KELLEY”、“KING OAKS”、 “金斯伍德”、“克罗格”、“拉克兰”、“兰开斯特”、“兰开斯特 EB US HWY 287 SB”、 “LANCASTER WB US 287 NB”、“LAS VEGAS”、“LEA CREST”、“LEE”、“LIBBEY”、 “林肯”、“里斯本”、“LITSEY”、“LONG”、“LOOP”、“LOOP 820”、“LOOP 820 E/B”、 “LOOP 820 EB IH 35W NB”、“LOOP 820 EB SR”、“LOOP 820 FWY”、“LOOP 820 NORTH”、 "LOOP 820 S", "LOOP 820 SERVICE ROAD EB", "LOOP 820 SOUTH", "LOOP 820 SOUTH FRWY", “LOOP 820 SOUTH FWY SB”、“LOOP 820 WB”、“LOOP 820 WB IH 35W NB”、 “LOOP 820/JIM WRIGHT”、“LOST CREEK”、“LOVING”、“LUBBOCK”、“MACEO”、 “梅肯”、“马多克斯”、“主要”、“曼斯菲尔德”、“曼斯菲尔德高速公路”、“海洋小溪”、 “马克四世”、“马丁”、“马丁路德金”、“马丁路德金 FWY SB SR”、 “梅菲尔”、“MC CART”、“MCALISTER”、“MCCART”、“MEACHAM”、“MEADOW CREEK”、 “梅多布鲁克”、“梅里达”、“迈克尔”、“米勒”、“部长”、“密西西比”、 “米切尔”、“MLK”、“君主”、“蒙太奇”、“蒙哥马利”、“莫顿”、 “MT VERNON”、“MULESHOE”、“MULKEY”、“N FWY”、“纳什维尔”、“NAVADA”、 “NECHES”、“NELL”、“NOKONI”、“NOLAN”、“NORTH”、“NORTH EAST”、“NORTH FREEWAY”、 “NORTH FREEWAY NB”、“NORTH FWY”、“NORTH FWY”、“NORTH FWY SR NB”、 "NORTH FWY SR SB", "NORTH SOUTH", "NORTH SOUTH FWY SB", "NORTH SOUTH FWY SR NB", “东北环 820”、“东北环 820 SR EB”、“北侧”、 “西北环路 820”、“西北环路 820 EB”、“西北环路 820 FWY W”、 “NORTHWEST LOOP 820 SR”、“NORWOOD”、“OAK GROVE”、“OAK PARK”、 “OAKBEND”、“OAKLAND”、“OAKMONT”、“OAKMONT BLVD”、“OLD DECATUR”、 “老亨普希尔”、“奥弗顿岭”、“巴黎”、“PARKSIDE”、“佩特”、 “铺路”、“山核桃”、“PECOS”、“宾夕法尼亚”、“珀金斯”、“潘兴”、 “管道”、“波特兰”、“后橡树”、“后橡树 E”、“草原”、 “PRECINCT LINE”、“QUEBEC”、“RACE”、“RAILHEAD”、“RAMEY”、“RANDOL CROSSING”、 “RANDOL MILL”、“RANSOM TER”、“RAY WHITE”、“RENAISSANCE SQ”、“RENDON Crowley”、 “伦登·克劳利 IH 35W NB”、“RICKENBACKER”、“RIDGLEA”、“RIDGMAR”、 “RIPY”、“RISINGER”、“RISINGER RD”、“RIVER RANCH”、“RIVERSIDE”、 “咆哮的春天”，“罗斯代尔”，“奔跑的河流”，“卢瑟福”， “S FWY NB”、“S 大学”、“S US HWY 287”、“SAMUELS”、“圣华金”、 “SANBORN”、“SANDY”、“SARITA”、“SB RAMP”、“SCOTS BRIAR”、“SCOTT”、 “SELKIRK”、“神学院”、“SH 121”、“SHADYDELL”、“SHAW”、“SILENT HOLLOW”、 “南”、“东南”、“南高速公路”、“南 FWY”、“南 FWY NB”、 “SOUTH FWY SR SB”、“SOUTHEAST LOOP 820”、“SOUTHWEST”、“SOUTHWEST BLVD SR EB”、 “西南大道 SR WB”、“西南 FRWY”、“西南环路”、“西南环路 820”、 “SOUTHWESTLOOP 820”、“SOVEREIGN”、“SPUR 280”、“SPURGEON”、“STADIUM”、 “STANDISH”、“State HWY 360”、“State HWY 121”、“State HWY 121 EB”、 “State HWY 121 WB IH 35W NB”、“State HWY 183”、“State HWY 183 EB AMON CARTER”、 “州 HWY 183 EB ST HWY 360 SB”、“州 HWY 183 WB”、“州 HWY 183 WB ST HWY 360 SB”、 “国家高速公路 199”，“国家高速公路 360”，“国家高速公路 360 NB ST HWY 183 EB”， "State HWY 360 NB TRINITY RAMP", "STEPHENSON", "SUFFOLK", "SUMMER CREEK", “SUMMERFIELDS”、“SUMMIT”、“SUN VALLEY”、“SYCAMORE SCHOOL”、“SYCAMORE SCHOOL RD”、 “SYLVANIA”、“TANGER”、“TANNER”、“TARRANT”、“TERRELL”、“TEX”、 “THROCKMORTON”、“TIMBERLAND”、“TOM LANDRY”、“TRAIL LAKE”、“石灰华”、 “三位一体”，“大学”，“大学公园”，“US 287”，“US 287 SB”， "US HWY 183 WB", "US HWY 287", "US HWY 287 SB", "US HWY 287 SB EAST LOOP 820 SOUTH NB", “VALKUS”、“VAUGHN”、“VEL”、“VICKERY”、“VILLAGE CREEK”、“W IH 20 EB”、 “W IH 20 FWY EB”、“W RENDON CROWLEY”、“WAGGONWHEEL”、“WALDEN WOOD”、 “华莱士”、“沃尔顿”、“韦瑟福德”、“韦伯”、“韦德蒙”、“韦尔奇”、 “WESLEYAN”、“WEST”、“WEST FREEWAY”、“WEST FWY”、“WEST FWY WB”、 “WEST LOOP”、“WEST LOOP 820 NORTH SR NB”、“WESTCREEK”、“WESTDALE”、 “西部中心”、“西港”、“白色定居点”、“威奇托”、 “威尔巴格”、“温尼弗雷德”、“狼山”、“奇迹”、“伍德威”、 “WORLD WIDE”、“Y C ShamBLEE”、“YUCCA”）、class= “因素”）、On_site = c（FALSE、 真，假，真，假，真，假，假，假，真，假， 假，假，假，真，假，真，假，假，真）， 日期=结构（c（6L，6L，4L，6L，5L，6L，6L，6L，5L，6L， 7L, 8L, 4L, 4L, 6L, 6L, 4L, 6L, 4L, 6L), .Label = c("10/10/2018", “10/11/2018”、“10/12/2018”、“10/13/2018”、“10/14/2018”、“10/15/2018”、 “2018 年 10 月 16 日”、“2018 年 10 月 17 日”、“2018 年 10 月 18 日”、“2018 年 10 月 19 日”、“2018 年 10 月 20 日”、 “2018 年 10 月 21 日”、“2018 年 10 月 22 日”、“2018 年 10 月 23 日”、“2018 年 10 月 24 日”、“2018 年 10 月 25 日”、 “2018 年 10 月 26 日”、“2018 年 10 月 27 日”、“2018 年 10 月 28 日”、“2018 年 10 月 29 日”、“2018 年 10 月 3 日”、 “2018 年 10 月 30 日”、“2018 年 10 月 31 日”、“2018 年 10 月 4 日”、“2018 年 10 月 5 日”、“2018 年 10 月 6 日”、 “10/7/2018”、“10/8/2018”、“10/9/2018”、“11/1/2018”）、class=“因子”）、 纬度 = c(32.7058, 32.80217, 32.79703, 32.65049, 32.7218, 32.85138, 0, 32.76173, 32.67281, 32.78689, 32.68455, 32.63313, 32.80966、32.70743、32.92006、0、32.70241、32.78521、32.78658、 32.68574), 经度 = c(-97.43445, -97.16269, -97.37375, -97.37472, -97.4417, -97.40293, 0, -97.2877, -97.37544, -97.38503, -97.32159, -97.30425, -97.12623, -97.31852, -97.27253, 0, -97.31786, -97.38301, -97.3821, -97.2406)), row.names = c(NA, 20L), class= "data.frame")
我知道服务器功能有问题。如果有人能弄清楚就太好了。
【问题讨论】：
-
你能和我们分享
incident.csv吗？即：incident <- read.csv('incident.csv'); dput(incident) -
@JohnCoene 我已经编辑了这个问题。请看一下。
-
对不起，这是不可重现的，请
dput(head(incidents, 20))，这样我们就可以运行代码了。 -
@JohnCoene 现已更新。
标签： r web-applications shiny leaflet