jcheng5/leaflet-shiny

Leaflet bindings for Shiny

This package is deprecated

This package has been superceded by a new and improved Leaflet package:

Website: http://rstudio.github.io/leaflet/
Source: https://github.com/rstudio/leaflet

---

If you are still interested in this deprecated package, you can navigate to the master branch.

leaflet-shiny's Issues

leaflet : conditional color circle

Hi Jcheng5,

first, thank you for your active contributions.

I've adapted your code "Population" to my shiny application. It works very well.
The circle width is based on a data frame (df_cases). But I would like to define color according a another data frame(df_alert), 0 no alert (green color) and 1 for alert (red color). Both data frame have same dimension and structure.

Thanks so much for your answer.
regards.

Is it possible to trigger a marker popup remotely?

I've been trying to find a function that triggers a marker popup. So far I've only seen this method in the legacy leaflet code. Is there a way to achieve this in some other way?

addCircleMarker for json

Hello jcheng5,

I am reading in geojson data and using the map$addGeoJSON(xyz) function, I however would like to get circle markers instead of the blue teardrop markers. Will appreciate it if you can assist with this.

Thank you
-Andy

include `removeGeoJSON`, `clearGeoJSON`

The new addGeoJSON is great. It would be nice to have a companion functions to clear all GeoJson layers or remove a single layer based on layerID

Precision of map$addCircle when lat and long are stored as numeric.

Hello,
Thanks for making this (and shiny). I had an issue when I used the map$addCircle() function. I had stored my Lat and Long data as numeric, with 7 digits after the decimal point. When I plotted the data on a mapbox map, the centers of the circles were off ~50 meters. However, when I first used as.character() on the coordinates, the error went away.

Is this implementation suitable for heatmap?

Would it be possible to use this implementation of leaflet for shiny?

Would it be possible to add it to this code or a change to the package is necessary?

I'm assuming https://github.com/Leaflet/Leaflet.heat will be used as it has been developed by Vladimir Agafonkin as a leaflet extension already.

The associated issue is to have the possibility to reset the heatmap layer to allow a shiny user to select a parameter from the UI and see different objects at choice (different items; dates etc.).

Disclaimer: I have already implemented something similar with rCharts but the layer reset does not work and all the heatmaps are shown one on top of the other.
I have posted a question with sample shiny code on stackoverflow here: http://stackoverflow.com/questions/26752589/remove-leaflet-heatmap-layer-with-rcharts-and-shiny

What is the difference to other leaflet-R packages?

There exist (at least) two other R-packages for leaflet:

https://github.com/rstudio
https://github.com/chgrl/leafletR

What is the difference to this package, and when and why should I use which one?

Trying to programmatically clear open marker popup and open another, driven by click on a different component

I have a shiny dashboard example here, with a leaflet map and a DT table. I have clicks on the map markers driving the row selection in the table, but I am also wanting to have it work the other way, where a click on a table row, triggers the selection of a map market for the popup to appear.

In other words, the end user can drive their selection from either component

library(shiny)
library(leaflet)
library(DT)
library(tidyverse)

# Define UI for application that draws a histogram
ui <- fluidPage(
   
    leafletOutput("opsMap"),
    DT::dataTableOutput('ranksDT')
)

# Define server logic required to draw a histogram
server <- function(input, output) {
   
    lats <- c(21.608889,21.693056, 24.04)
    longs <- c(-74.650833, -73.095,-74.341944)
    popups <- c('a','b','c')
    layerids <- c('a','b','c')
    iconNames <- c('cog','cog','cog')
    iconColors <- c('red','red','red')
    
    sampleData <- data_frame(lats,longs, popups,layerids,iconNames,iconColors)

    score <- c(7,3,9)
    
    locationRanks <- data_frame(popups, score)
        
    output$opsMap <- renderLeaflet({
        
        leaflet() %>%
            addTiles() %>% 
            addAwesomeMarkers(lat = sampleData$lats, 
                              lng = sampleData$longs, 
                              popup = sampleData$popups, 
                              layerId = sampleData$layerids,
                              icon = makeAwesomeIcon(icon=sampleData$iconNames, 
                                                     markerColor=sampleData$iconColors))
    })
    
    output$ranksDT <- DT::renderDataTable({
        d1 <- datatable(locationRanks,
                        selection = 'single',
                        rownames=FALSE,
                        options = list(dom = 'tpi',
                                       pageLength =5,
                                       paging=FALSE,
                                       searching=FALSE
                        )
        )
        d1
    })
    
    # create a reactive value that will store the click position
    mapClick <- reactiveValues(clickedMarker=NULL)
    mapClick <- reactiveValues(clickedGroup=NULL)
    
    # create a reactive for the DT  table
    locationClick <-reactiveValues(clickedRow = NULL)
    
    # observe click events
    observe({
        mapClick$clickedMarker <- paste(input$opsMap_marker_click$id)
        mapClick$clickedGroup <- paste(input$opsMap_marker_click$group)
        locationClick$clickedRow <- input$ranksDT_rows_selected
    })
    
    # define a proxy variable for the plant rank table
    proxy1 = dataTableProxy('ranksDT')
    # when map is clicked, make the same table row selection - need row number
    observeEvent(input$opsMap_marker_click$id, {
        a <- which(locationRanks[1] == input$opsMap_marker_click$id)
        proxy1 %>% selectRows(a)
    })
    
    
    # if table is clicked, select the same market from the map
    observeEvent(locationClick$clickedRow, {
        a <- as.character(locationRanks[locationClick$clickedRow,1])
        cat(file=stderr(),"clicked row", locationClick$clickedRow, a,'\n')

    })
    
    
}

# Run the application 
shinyApp(ui = ui, server = server)

Population demo doesn't match source code

https://github.com/jcheng5/leaflet-shiny/tree/master/inst/examples/population

doesn't match

http://glimmer.rstudio.com/jcheng/leaflet-demo/

Namely, the code for the 'random location' and 'add marker on click' is not included.

I can't get to Alaska!

The map keeps pulling me back to the lower 48 states.

Feedback on updated documentation

Joe,

I just saw that you updated the documentation of this package a few weeks ago and wanted to take the chance to submit some general feedback.

I used your package to reverse engineer a United Nations web app 3 months ago which was not so easy due to the lack of documentation.

Since the RStudio team uses apps based on leaflet-shiny to showcase Shiny in general, any further improvement of the package's documentation is a big plus. Therefore, I really appreciate the latest updates of the README.

Cheers,
Alex

Error while running the project

Trying to run this project in R studio. It gives following error message:

Error in force(ui) : could not find function "fluidPage"

addRectangle bug

addRectangle doesn't work. Line 304 in binding.js should read:

    self.shapes.add(rect, thisId);

instead of

    self.shapes.addLayer(rect, thisId);

How to use events?

Dear Joe,

First of all congratulation for your great package!
I have built a map with circle markers and popups, and I would like popups to appear when the mouse goes on a circle. I am not a js user, and I don't understand how I should use the events (if it's the correct concept to be invoked here) in my R code.
Could you please help me with this issue?
Thank you in advance and best regards,
Thomas

my code:
output$mapTweets <- renderLeaflet({
m = leaflet() %>% addTiles()
m
m %>% addCircleMarkers(lng = located_patient.tw$lon, lat = located_patient.tw$lat, popup = custom.popup, radius = 4, opacity = 0.2)
})
}

How to move L.Control.Zoom on the topright ?

Is it possible to move the Zoom In/Out option without using javascript ?

I have found that the options exist with leaflet,

L.Control.Zoom({ position: 'topright' }).addTo(map);

But didn't find where to put this with R.

I tried
leaflet(options=list(Control.Zoom("topright"))

and with addControls.

Can't find any documentation on leaflet package

Hi there,

After long hours of searching, i can't find any docs on this package.
It would be nice to have some sort of API doc instead of just the example code to go on.

Regards.