Empty SpatialPolygonsDataFrame object passed and will be skipped
I am sorry for cumbersome code in advance, but need some good help.
I will start from printscreens
So, 5 out of 6 filters in my Shiny app work perfectly:
The problem arises when I try to create the sixth filter - called Indicator. And present the same data and in the same format as three last filters. Basically, I want to combine in Indicator filter three previous indicators. And filtering by one of three indicators to show circles for all 7 projects (based on one indicator). Does it make sense?
But the last code does not work. It shows me error
Warning in polygonData.SpatialPolygonsDataFrame(data) : Empty SpatialPolygonsDataFrame object passed and will be skipped
Unfortunately, I did not find too much about it. Can you please take a look at the end of the code, called Indicator, and help. I suspect that I have problems with proper subsetting of data at least.
Data can be taken here
Shapefiles can be taken here
So, the code itself
# 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)
Solution
Resolved with the help of R community.
The last filter will work with this code.
# 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)
})
Result:
- rlanguageserver: Disable specific linter and avoid line-breaking
- Replace truncated word in a string
- Add label to right y axis in R ggplot
- Popup offset without using markers
- Multi marker depending a variable in a data frame
- Drawing numerous polygons
- Select icons or CircleMarkers based on factor variable
- Why is a map not displayed when I call leaflet in a function
- Display SpatialPolygonsDataFrame on leaflet map
- Leaflet in R not showing variable circle colors
- Overlay two population pyramid plots in one ggplot graph
- How to most efficiently filter a dataframe conditionally of values in another one, in the tidyverse framework?
- R group_by multiple conditionnal aggregation functions dplyr
- Conditionally split strings cells in a dataframe R
- How to have Shiny app render multiple plots
- Disable Shiny button conditionally to a rHandsontable format
- Is there a way to render dynamic headings in Quarto using R?
- What is the time complexity of sample?
- Add geom_text with x bar and round values
- Color-fill ggplot2 maps with a single color
- lapply a ggplot function on multiple inputs with consistent groups
- Is there a way to save text in R without it actively implementing \n?
- How to get number of unique observations using tbl_summary
- Using if_else in a mutate command yields an error about false having the wrong size
- Rotate x-axis value in dendogram using fviz_dend
- Export data frames in list to xlsx with named sheets
- Query all primary roads from PostGis Database filled with OSM Data within a boundary
- Write a list in r to an excel file
- Calculating net assets with missing values: discrepancy in results
- Error in curl::curl_fetch_memory(url, handle = handle) : Couldn't connect to server in R: oauth2.0_token())