带rCharts的闪亮中的热图
我试图做一些类似于拉姆纳特的休斯顿犯罪数据热图演示的事情,但我遇到了一些问题。也就是说,除了它的整个热图部分,所有的东西似乎都在工作 我在西雅图有一个犯罪信息数据集;数据片段如下所示:带rCharts的闪亮中的热图,r,shiny,rcharts,R,Shiny,Rcharts,我试图做一些类似于拉姆纳特的休斯顿犯罪数据热图演示的事情,但我遇到了一些问题。也就是说,除了它的整个热图部分,所有的东西似乎都在工作 我在西雅图有一个犯罪信息数据集;数据片段如下所示: Offense Date Longitude Latitude 3 Assault 2015-10-02 -122.3809 47.66796 5 Assault 2015-10-03 -122.3269 47.63436 6 Assault 2015-10-04 -122.3342 47
Offense Date Longitude Latitude
3 Assault 2015-10-02 -122.3809 47.66796
5 Assault 2015-10-03 -122.3269 47.63436
6 Assault 2015-10-04 -122.3342 47.57665
7 Weapon 2015-04-12 -122.2984 47.71930
8 Assault 2015-06-30 -122.3044 47.60616
9 Burglary 2015-09-04 -122.2754 47.55392
我正在尝试创建一个闪亮的应用程序,它将根据用户选择的日期范围和违规行为子集显示热图
这是我的ui.R:
library(shiny)
library(rCharts)
library(rjson)
shinyUI(fluidPage(
headerPanel("Crime in Seattle"),
sidebarPanel(
uiOutput("select.date.ran"),
uiOutput("select.crime")
),
mainPanel(chartOutput("my.map", "leaflet"),
tags$style('.leaflet {height: 500px;}'),
tags$head(tags$script(src="http://leaflet.github.io/Leaflet.heat/dist/leaflet-heat.js")),
uiOutput('spd.map'))
))
和服务器。R:
library(shiny)
library(rCharts)
library(rjson)
spd <- readRDS("data/spd.rds")
shinyServer(function(input, output, session) {
output$select.date.ran <- renderUI({
dateRangeInput("sel.date", "Choose date range:",
start = "2014/01/01", end = "2015/10/05",
separator = "to", format = "yyyy/mm/dd",
startview = "month", weekstart = 0,
language = "en")
})
output$select.crime <- renderUI({
checkboxGroupInput(inputId = "sel.crime", "Select crimes:",
choices = c("Theft", "Fraud", "Drugs/Alcohol",
"Weapon", "Assault", "Disturbance",
"Robbery", "Homicide", "Prostitution"),
selected = "Theft")
})
output$my.map <- renderMap({
my.map <- Leaflet$new()
my.map$setView(c(47.5982623,-122.3415519) ,12)
my.map$tileLayer(provider="Esri.WorldStreetMap")
my.map
})
output$spd.map <- renderUI({
spd.dat <- spd[spd$Offense %in% input$sel.crime &
(spd$Date >= input$sel.date[1] &
spd$Date <= input$sel.date[2]), c(3, 4)]
spd.json <- toJSONArray2(spd.dat, json = FALSE, names = FALSE)
tags$body(tags$script(HTML(sprintf("
<script>
var addressPoints = %s
var heat = L.heatLayer(addressPoints, {maxZoom: 9, radius: 20, blur: 40}).addTo(map)
</script>", rjson::toJSON(spd.json)
))))
})
})
库(闪亮)
图书馆(艺术)
图书馆(rjson)
spd事实证明,有两个问题,前两个问题解决后,第三个问题出现
首先,HTML中的
(sprintf(…是不必要的。我认为这是导致“未捕获的语法错误:意外标记”的原因。浏览器开发人员工具javascript控制台中显示了哪些错误(如果有)?有两个未捕获的语法错误:意外标记@hrbrmstr我认为您的评论触及了问题的核心…我认为server.R文件中的HTML(sprintf(…)位出现了问题。是因为它没有正确识别Javascript吗?您使用的是哪个版本的Shining?我使用的是最新版本,0.12.2。
spd.dat <- spd[spd$Offense %in% input$sel.crime &
(spd$Date >= input$sel.date[1] &
spd$Date <= input$sel.date[2]), c(3, 4)]
spd.json <- toJSONArray2(spd.dat, json = FALSE, names = FALSE)
spd.dat <- spd[spd$Offense %in% input$sel.crime &
(spd$Date >= input$sel.date[1] &
spd$Date <= input$sel.date[2]), ]
spd.arr <- toJSONArray2(spd.dat[c(3,4)], json = FALSE, names = FALSE)