空 SpatialPolygonsDataFrame 对象已传递，将被跳过
问题描述 投票：0回答：1
我很抱歉提前编写了繁琐的代码，但需要一些好的帮助。
我将从打印屏幕开始
所以，我的 Shiny 应用程序中的 6 个过滤器中有 5 个完美工作：
当我尝试创建第六个过滤器 - 称为 Indicator 时，问题就出现了。 并以与最后三个过滤器相同的格式呈现相同的数据。基本上，我想在 Indicator 过滤器中组合之前的三个指标。并按三个指标之一进行过滤，以显示所有 7 个项目的圆圈（基于一项指标）。有道理吗？
但是最后的代码不起作用。它显示我的错误
polygonData.SpatialPolygonsDataFrame(data) 中的警告： 空 SpatialPolygonsDataFrame 对象已传递，将被跳过
不幸的是，我没有找到太多相关信息。您能否看一下名为 Indicator 的代码末尾并提供帮助。我怀疑我至少在数据的正确子集化方面存在问题。
可以在这里获取数据
Shapefiles 可以在这里
所以，代码本身
# Projects and Results Dashboard
# Packages (I played with different)
library(shiny)
library(shinythemes)
library(leaflet)
library(rgdal)
library(tidyverse)
library(geojsonio)
library(RColorBrewer)
library(highcharter)
library(plotly)
library(ggplot2)
library(xlsx)
# Set directory
setwd("C:~/App Projects and Results")
# Read csv, which was created specifically for this app
projects <- read.csv("Sample data3.csv", header = TRUE)
names(projects)
# Read a shapefile
countries <- readOGR(".","ne_50m_admin_0_countries")
# Merge data
projects.df <- merge(countries, projects, by.x = "name", by.y = "Country")
class(projects.df)
# UI code
ui <- shinyUI(fluidPage(theme = shinytheme("united"),
titlePanel(HTML(# "<h1><center><font size=14>
"Projects and Results Dashboard"
#</font></center></h1>"
)),
sidebarLayout(
sidebarPanel(
selectInput("countryInput", "Country",
choices = c("Choose country", "Senegal",
"Nigeria",
"Cameroon",
"Dem. Rep. Congo",
"Rwanda",
"Tanzania",
"Madagascar"),
selected = "Choose country"),
selectInput("projectInput", "Project",
choices = c("Choose Project",
"Project 1",
"Project 2",
"Project 3",
"Project 4",
"Project 5",
"Project 6",
"Project 7"),
selected = "Choose Project"),
selectInput("totalInput", "Total Funds",
choices = c("Choose Project",
"Project 1",
"Project 2",
"Project 3",
"Project 4",
"Project 5",
"Project 6",
"Project 7"),
selected = "Choose Project"),
selectInput("cashInput", "Client Cash",
choices = c("Choose Project",
"Project 1",
"Project 2",
"Project 3",
"Project 4",
"Project 5",
"Project 6",
"Project 7"),
selected = "Choose Project"),
selectInput("clientInput", "Total Client",
choices = c("Choose Project",
"Project 1",
"Project 2",
"Project 3",
"Project 4",
"Project 5",
"Project 6",
"Project 7"),
selected = "Choose Project"),
selectInput("indicatorInput", "Indicator",
choices = c("Choose indicator",
"Total Funds ",
"Client Cash",
"Total Client"
),
selected = "Choose indicator")
),
mainPanel(leafletOutput(outputId = 'map', height = 800)
)
)
))
# SERVER
server <- shinyServer(function(input, output) {
output$map <- renderLeaflet({
leaflet(projects.df) %>%
addProviderTiles(providers$Stamen.TonerLite) %>%
setView(11.0670977,0.912484, zoom = 4)
})
# observers
# selected country
selectedCountry <- reactive({
projects.df[projects.df$name == input$countryInput, ]
})
observe({
state_popup <- paste0("<strong>Country: </strong>",
selectedCountry()$name,
"<br><strong> Project: </strong>",
selectedCountry()$Project,
"<br><strong> Total Funds: </strong>",
selectedCountry()$Total.Funds,
"<br><strong>Client Cash: </strong>",
selectedCountry()$Client.Cash,
"<br><strong>Total Client: </strong>",
selectedCountry()$Total.Client)
leafletProxy("map", data = selectedCountry()) %>%
clearShapes() %>%
addPolygons(fillColor = "blue",
popup = state_popup,
color = "#BDBDC3",
fillOpacity = 0.5,
weight = 1
)
})
# selected project
selectedProject <- reactive({
tmp4 <- projects.df[!is.na(projects.df$Project),]
tmp4[tmp4$Project == input$projectInput, ]
})
observe({
state_popup4 <- paste0("<strong>Country: </strong>",
selectedProject()$name,
"<br><strong> Project: </strong>",
selectedProject()$Project,
"<br><strong> Total Funds: </strong>",
selectedProject()$Total.Funds,
"<br><strong>Client Cash: </strong>",
selectedProject()$Client.Cash,
"<br><strong>Total Client: </strong>",
selectedProject()$Total.Client)
leafletProxy("map", data = selectedProject()) %>%
clearShapes() %>%
addPolygons(fillColor = "blue",
popup = state_popup4,
color = "#BDBDC3",
fillOpacity = 0.5,
weight = 1
)
})
# Total Funds
selectedTotal <- reactive({
tmp <- projects.df[!is.na(projects.df$Project),]
tmp[tmp$Project == input$totalInput, ]
})
observe({
state_popup1 <- paste0("<strong>Country: </strong>",
selectedTotal()$name,
"<br><strong> Project: </strong>",
selectedTotal()$Project,
"<br><strong> Total Funds </strong>",
selectedTotal()$Total.Funds)
leafletProxy("map", data = selectedTotal()) %>%
clearShapes() %>%
addCircles(lng = ~selectedTotal()$long, lat = ~selectedTotal()$lat,
weight = 1, fillOpacity = 0.5, color = "darkorange",
radius = ~Total.Funds*500, popup = state_popup1
)
})
# Cash Funds
selectedCash <- reactive({
tmp1 <- projects.df[!is.na(projects.df$Project),]
tmp1[tmp1$Project == input$cashInput, ]
})
observe({
state_popup2 <- paste0("<strong>Country: </strong>",
selectedCash()$name,
"<br><strong>Project: </strong>",
selectedCash()$Project,
"<br><strong>Client Cash: </strong>",
selectedCash()$Client.Cash)
leafletProxy("map", data = selectedCash()) %>%
clearShapes() %>%
addCircles(lng = ~selectedCash()$long, lat = ~selectedCash()$lat, weight =
1, fillOpacity = 0.5, color = "darkred",
radius = ~Client.Cash*500, popup = state_popup2)
})
# Total Client
selectedClient <- reactive({
tmp2 <- projects.df[!is.na(projects.df$Project),]
tmp2[tmp2$Project == input$clientInput, ]
})
observe({
state_popup3 <- paste0("<strong>Country: </strong>",
selectedClient()$name,
"<br><strong>Project: </strong>",
selectedClient()$Project,
"<br><strong>Total Client: </strong>",
selectedClient()$Total.Client)
leafletProxy("map", data = selectedClient()) %>%
clearShapes() %>%
addCircles(lng = ~selectedClient()$long, lat = ~selectedClient()$lat,
weight = 1, fillOpacity = 0.5, color = "darkgreen",
radius = ~Total.Client*500, popup = state_popup3)
})
# Indicator
selectedIndicator <- reactive({
tmp5 <- projects.df[!is.na(projects.df$Project),]
tmp5[tmp5$Total.Funds == input$indicatorInput | tmp5$Client.Cash ==
input$indicatorInput | tmp5$Total.Client == input$indicatorInput, ]
})
observe({
state_popup5 <- paste0("<strong>Country: </strong>",
selectedIndicator()$name,
"<br><strong>Project: </strong>",
selectedIndicator()$Project,
"<br><strong> Total Funds: </strong>",
selectedIndicator()$Total.Funds,
"<br><strong>Client Cash: </strong>",
selectedIndicator()$Client.Cash,
"<br><strong>Total Client: </strong>",
selectedIndicator()$Total.Client
)
leafletProxy("map", data = selectedIndicator()) %>%
clearShapes() %>%
addCircles(lng = ~selectedIndicator()$long, lat =
~selectedIndicator()$lat, weight = 1, fillOpacity = 0.5, color =
"darkorange",
radius = ~Total.Client*500, popup = state_popup5)***
})
})
shinyApp(ui = ui, server = server)
1个回答
1
投票
投票
在 R 社区的帮助下解决了。
最后一个过滤器将与此代码一起使用。
# Indicator
selectedIndicator <- reactive({switch(input$indicatorInput,
"Total Funds " = projects.df$Total.Funds,
"Client Cash" = projects.df$Client.Cash,
"Total Client" = projects.df$Total.Client)
})
observe({
state_popup5 <- paste0("<strong>Country: </strong>",
projects.df$name,
"<br><strong>Project: </strong>",
projects.df$Project,
"<br><strong> Total Funds: </strong>",
projects.df$Total.Funds,
"<br><strong>Client Cash: </strong>",
projects.df$Client.Cash,
"<br><strong>Total Client: </strong>",
projects.df$Total.Client
)
leafletProxy("map", data = projects.df) %>%
clearShapes() %>%
addCircles(lng = projects.df$long, lat =
projects.df$lat, weight = 1, fillOpacity = 0.5, color =
"darkorange",
radius = ~selectedIndicator()*500, popup = state_popup5)
})
结果：
最新问题
- 如何在Android Kotlin中每5秒致电API？
- Sci-kit学习：研究错误分类的数据
- 如何从C＃中的QueryPerformancecount
- 不能将ApplicationSights的度量添加到Azure
- 我如何禁用，在键入点（。）视觉工作室后会自动打印fileStyleUriparSer？ 不要误会我的意思，我想要这些建议，但我不希望Visual Studio自动
- 我有一个vba excel模型，我将其分为两个单独的工作簿： 包含模型的所有输入的InputswB， RunnerWB，其中包含大部分VBA代码（以及所有
- 在bash中``读''的目的是什么？您如何使用它？
- 如何在C＃中为帐户中创建持久字典？
- 如何从另一个数组的值中生成一个随机数组，其值的总和在预定的范围内？ 我有一系列正整数，例如[10,25,40,55,80,110]。 我想能够指定一个范围，例如100-150，并从此预先存在的数组中生成一个新数组，其中新的
- 如何支持更改登录电子邮件与Auth0
- 我正在尝试将JS文件保存在Chrome覆盖文件的指定文件夹中，并且每当我按右键单击然后单击“保存为覆盖”时，该文件就不会保存在文件夹中。 \
- 以下反应组件之间有什么区别？ [重复]
- 我们如何在角度测试httpresource？ 我喜欢Angular的新httpresource，它做了很多我很久以来一直想要的事情。它确实可以使生活更轻松。 但是，我在用茉莉花测试httpresource时遇到麻烦...
- 如何在.NET应用程序中访问GCP Secret Manager，并配置了代理？ 我在Google Cloud Run上托管了一个.NET应用程序，需要访问GCP Secret Manager。我的应用程序可以正常工作，但是当我使用环境变量设置代理时（http ...
- 每个子图旁边的传说，python
- 将GhostPCL与图像转换为PDF
- 我有一个IoT中心和用Python编写的Azure函数应用程序。我希望Azure功能能够触发Hub收到的消息。
- 在运行Django测试之前，加载SQL转储
- 如何在我的React节点项目中添加自定义HLS依赖关系的正确方法？ 我想从https://github.com/video-dev/hls.js修改来源，然后将其添加到我的项目中。 我下载了https://github.com/video-dev/hls.js消息来源，进行了一些更改，并运行了NPM Run Build。 t ...
- 有人可以在MaxScript中解释struct定义内部的结构定义。
© www.soinside.com 2019 - 2025. All rights reserved.