Ped Bike

SharedData1 <- read.csv("file:///C:/Users/s-das/Syncplicity Folders/MyProjects_IMP/MY_Papers_V2/TRB 2020/00000000 FINALz/Y ConceptsTools/000010 SOM/FARS_2014_2016_PBType_withPersonVehicleAccident.csv")
sd1 <- SharedData1[,c(1, 218, 219, 34, 8, 9)]
colnames(sd1)[2] <- "lat"
colnames(sd1)[3] <- "long"


library(crosstalk)
library(leaflet)
library(DT)
library(crosstalk)

sd <- SharedData$new(sd1[sample(nrow(sd1), 150),])

# Create a filter input
##filter_slider("HOUR", "Hour", sd, column=~HOUR, step=0.1, width=250)

# Use SharedData like a dataframe with Crosstalk-enabled widgets
bscols(
  leaflet(sd) %>% addTiles() %>% addCircleMarkers(),
  datatable(sd, extensions="Scroller", style="bootstrap", class="compact", width="100%",
            options=list(deferRender=TRUE, scrollY=300, scroller=TRUE))
)