Interactive Map in R using leaflet/Shiny

Question

I want to create a map with a sidebar where you can select the range of a time period. The idea is that the map shows marks only for hotels which opened during the period. I had no clue to do that so I tried to use selectInput instead since it seemed a little easier for me. But it seems I still can't make it work. Any guidance would be appreciated.

Here's the sample data frame:

Hotel Year   lat        long
  A   2000 41.886337 -87.628472
  B   2005 41.88819  -87.635199
  C   2010 41.891113 -87.63301

Here's the ui.R:

#ui.R
library(shiny)
library(leaflet)

shinyUI(fluidPage(
  titlePanel("Hotel Map"),
  sidebarLayout(
    sidebarPanel(
      selectInput("year", 
                  label = "Choose Year:",
                  choices = c(2000,2005,2010),
                  selected = 2000
      )),

    mainPanel (leafletOutput("map","100%",300))
  )
))

Here's the server.R:

library(shiny)
library(leaflet)
source("RStudio\\Map-app")
hotels <- read.csv("RStudio\\Map-app\\ChicagoHotels.csv")

shinyServer(
  function(input, output) {

    output$map <- renderLeaflet({
    df <- hotels[hotels$Year == input$year,]  
    leaflet()  %>%
        addTiles() %>%
        addCircles(data = df)
    })

  }
    )

SO is not a code-writing service. There are already plenty of examples on SO with leaflet/shiny — MLavoie
@alistaire & @ Mlavoie Thank you for your comments. I revised my question. If you can make any suggestions, it would be very much appreciated. — Yoshi

G. Cocca G. Cocca · Accepted Answer · 2016-02-19T21:37:45

@InfiniteFlashChess That´s correct.

Server.R

library(leaflet)

hotels <- read.table(text = "Hotel Year  latitude        longitude
                              A   2000  41.886337      -87.628472
                              B   2005  41.88819       -87.635199
                              C   2010  41.891113      -87.63301", 
                     header = TRUE)

shinyServer(function(input, output) {

output$map <- renderLeaflet({
  df <- hotels[hotels$Year == input$year,]  
  leaflet()  %>%
    addTiles() %>%
    addMarkers(data = df)
 })

})

Ui.R

library(shiny)
library(leaflet)

shinyUI(fluidPage(
titlePanel("Hotel Map"),
 sidebarLayout(
  sidebarPanel(
   selectInput("year", 
               label = "Choose Year:",
               choices = c(2000,2005,2010),
               selected = 2000
  )),

mainPanel (leafletOutput("map","100%",300))

              )
))

Interactive Map in R using leaflet/Shiny

2 Answers