Crosstalk - plus bootstrap columns

Photo by Fabio Ballasina
 2020/05/26

Alison 

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

# Wrap data frame in SharedData
sd <- SharedData$new(quakes[sample(nrow(quakes), 10),])

Bootstrap columns

This obviously breaks my CSS because it pulls in bootstrap

bscols(
  leaflet(sd, width = "100%", height = 300) %>%
    addTiles() %>%
    addMarkers(),
  datatable(sd, width="100%")
)
## Assuming "long" and "lat" are longitude and latitude, respectively
Contents
Upcoming events
Instructor Training
online
June 2 – 3, 2020
This workshop is the first step in becoming a certified RStudio instructor. It is run online for four hours on each of two days at a time suitable for participants in the Americas. Please contact us if you wish to take part.