library(crosstalk)
library(leaflet)
library(DT)
# Wrap data frame in SharedData
sd <- SharedData$new(quakes[sample(nrow(quakes), 10),])No bootstrap
This one doesn’t break my site’s CSS.
leaflet(sd) %>% addTiles() %>% addMarkers(~long, ~lat)
datatable(sd)