# # 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)
server <- function(input, output) { set.seed(122)
#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 #}
}