С помощью следующего минимального примера в R (Markdown) можно выбрать между двумя различными свойствами топоизона и нарисовать реактивно другую буклетную карту choropleth в соответствии с выбором входной панели.Реактивный выбор json-свойства в R для листовки без блестящего
Можно ли это сделать без блестящего?
Я проверил перекрестные помехи и реагировалR, но я не могу найти способ сделать это без блестящего.
---
output: html_document
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r, echo=FALSE}
library(leaflet)
library(leaflet.extras) # devtools::install_github('bhaskarvk/leaflet.extras')
topojson <- readr::read_file('https://rawgit.com/TrantorM/leaflet-choropleth/gh-pages/examples/basic_topo/crimes_by_district.topojson')
inputPanel(
selectInput("prop", label = "Property:",choices = c('incidents','dist_num'), selected = 'incidents')
)
renderLeaflet({
property = input$prop
leaflet() %>%
setView(-75.14, 40, zoom = 11) %>%
addProviderTiles("CartoDB.Positron") %>%
addGeoJSONChoropleth(
topojson,
valueProperty =property
)
})
```
Разве это не то, что слои предназначены для листовки? – TimSalabim
@TimSalabim В представленном примере набор данных topojson не перезагружается, и геометрия слоя не изменяется. С помощью 'inputPanel' я просто изменяю базу свойств для choropleth map. Функция 'addGeoJSONChoropleth()' просто пересчитывает цвета заливки. Этот пример работает, но он нужен блестящий. Я бы хотел сделать это без блестящего. –
Я не думаю, что вы можете получить это с простым R. Ему, по-моему, нужен JavaScript или блестящий, но я могу ошибаться – TimSalabim