leaflet renderLeaflet not working in shiny

Question

I am working with leaflet package to draw maps and plot lat and long on the plot. I am doing following in R.

m <- leaflet() %>%
addTiles() %>%  # Add default OpenStreetMap map tiles
addMarkers(lng=df_final$order_long, lat=df_final$order_lat)
m

It works perfectly fine in R console. But It doesn't work when I use it in shiny This is my ui.r code snippet

tabPanel("Order Locations", leafletOutput("map", width = "80%", height =  
"80%"))

and this is server.r code snippet

 output$map<- renderLeaflet({

 dataset<-dataUpload()
 leaflet() %>%
 addTiles() %>%  # Add default OpenStreetMap map tiles
 addMarkers(lng=dataset$order_long,lat=dataset$order_lat)
 })

It doesn't display anything. Where I am getting wrong. please help

Not much to go on. How about at least posting a example that "works fine in an R console"? — Mike Wise, Dec 28 '15 at 16:03
@Mike Wise I have already posted the code which works fine in R console — Neil, Dec 28 '15 at 16:05
Why are you calling `dataUpload()`? Is that a reactive object? — Steven_, Dec 28 '15 at 16:18
A [reproducible example](http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example), even if it's just fake data, would be useful. — alexwhitworth, Dec 28 '15 at 16:24
`dataUpload <- reactiveFileReader(1000, session, 'df_final.csv', read.csv)` — Neil, Dec 28 '15 at 16:26

Mike Wise · Accepted Answer · 2015-12-28T16:43:41.420

11

This works, I made it as close to yours as possible. It doesn't like percentage heights apparently:

library(shiny)
library(leaflet)

r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
  actionButton("recalc", "New points"),
  mainPanel(
    tabsetPanel(
      tabPanel("Order Locations", leafletOutput("map",width="80%",height="400px")),
      tabPanel("Markers", verbatimTextOutput("markers"))
    )
  )
)

if (!file.exists("df_final.csv")){
  nmark <- 50
  hv <- 80
  df_final <- data.frame(order_long=runif(nmark,-hv,hv),
                         order_lat=runif(nmark,-hv,hv))
  write.csv(df_final,"df_final.csv",row.names=F)
}

server <- function(input, output, session) {

  dataUpload <- reactiveFileReader(1000, session, 'df_final.csv', read.csv)

  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      addMarkers(lng=dataUpload()$order_long,lat=dataUpload()$order_lat)
  })
  output$markers <- renderPrint({print(dataUpload())})
}

shinyApp(ui, server)

Yielding:

edited Dec 28 '15 at 16:43

answered Dec 28 '15 at 16:24

Mike Wise

22,131
8
81
104

I could make it look more like your example, but it is fairly close already. Do you want me to, or is this enough? – Mike Wise Dec 28 '15 at 16:28
If u can that will be a great help. – Neil Dec 28 '15 at 16:31
Any chance you could accept it? Am trying to get to 3k today :) – Mike Wise Dec 28 '15 at 17:00
1

Funny...but very true...leaflet is not a statistician...but a web developer. – Apricot Aug 13 '16 at 16:06

score 2 · Answer 2 · answered Dec 28 '15 at 16:43

2

It Worked. Problem was with the ui.r file.

This is the modified code

tabPanel("Order Locations", leafletOutput("map"))

got rid off width and height parameters and it worked with default settings.

answered Dec 28 '15 at 16:43

Neil

7,937
22
87
145

score 1 · Answer 3 · answered Mar 28 '18 at 10:25

Somewhat late to the party, but you can add your own CSS to control leaflet's aesthetics, typically in a www folder, e.g. www/styles.css, which has the added benefit of responding to changes to the size of the window.

  /* styles.css */
  div.outer {
  position: fixed;
  top: 45px; /* set to fit nicely with Shinydashboard's dashboardHeader(), adjust according to your own preferences. */
  left: 0;
  right: 0;
  bottom: 0;
  overflow-y: auto;
  padding: 0;
}

and add this class in a div() in your ui:

ui <- fluidPage(
 actionButton("recalc", "New points"),
 mainPanel(
  tabsetPanel(
   tabPanel("Order Locations", 
            div(
             class = "outer",
             tags$head(
              includeCSS("www/styles.css")
             ),
             leafletOutput("map",width="100%",height="100%")
             )
            ),
   tabPanel("Markers", verbatimTextOutput("markers"))
  )
 )
)

The result:

leaflet renderLeaflet not working in shiny

3 Answers3