```r
# devtools::install_github("bokeh/rbokeh@dev")
library(rbokeh)
library(maps)

m <- map("state", region = "colorado", plot = FALSE)
mx <- mean(range(m$x, na.rm = TRUE))
my <- mean(range(m$y, na.rm = TRUE))
gmap(lng = mx, lat = my, zoom = 6, width = 800) %>%
  ly_lines(m$x, m$y, line_width = 2)
```