server.R 596 Bytes
Newer Older
Stephanie's avatar
Stephanie committed
1 2 3 4 5 6 7 8 9 10 11
#
# This is the server logic of a Shiny web application. You can run the 
# application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

library(shiny)

Stephanie's avatar
Stephanie committed
12 13
server <- function(input, output) {
  set.seed(122)
14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
  #histdata <- rnorm(500)
  
  #output$plot1 <- renderPlot({
  #data <- histdata[seq_len(input$slider)]
  #hist(data)
  #})
  
  ##MAP 
  
  #m <- leaflet()
  #m <- addTiles(m)
  #x=1
  #for(x in 1:2019){
  #m <- addMarkers(m,lng=longitude[x], lat=latitude[x]) #addPolylines does not work
  #x=x+1}
  #m
  #}
Stephanie's avatar
Stephanie committed
31
}